aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--2022/README.org2
-rw-r--r--2022/puzzle-1.lisp2
-rw-r--r--2022/puzzle-2.lisp2
-rw-r--r--2022/puzzle-3.lisp2
-rw-r--r--2022/puzzle-4.lisp2
-rw-r--r--2022/puzzle-5.lisp2
-rw-r--r--2022/puzzle-6.lisp2
7 files changed, 7 insertions, 7 deletions
diff --git a/2022/README.org b/2022/README.org
index c12fa40..34bc12b 100644
--- a/2022/README.org
+++ b/2022/README.org
@@ -16,7 +16,7 @@ out that Common Lisps semantics around parsing are kinda weird.
To get input, use ~uiop:read-file-string~ (comes with ASDF,
quicklisp, so in most common lisp systems).
#+begin_src lisp
-(defvar input (uiop:read-file-string "2022/1-input"))
+(defvar input (uiop:read-file-string "1-input"))
#+end_src
Each "bag" in the data is separated by two newlines, so let's define
diff --git a/2022/puzzle-1.lisp b/2022/puzzle-1.lisp
index a53b599..46fd7a0 100644
--- a/2022/puzzle-1.lisp
+++ b/2022/puzzle-1.lisp
@@ -1,4 +1,4 @@
-(defvar input (uiop:read-file-string "2022/1-input"))
+(defvar input (uiop:read-file-string "1-input"))
(defvar *sep (format nil "~%~%"))
diff --git a/2022/puzzle-2.lisp b/2022/puzzle-2.lisp
index b3b0155..a17fdb2 100644
--- a/2022/puzzle-2.lisp
+++ b/2022/puzzle-2.lisp
@@ -1,4 +1,4 @@
-(defvar input (uiop:read-file-string "2022/2-input"))
+(defvar input (uiop:read-file-string "2-input"))
;; Each newline represents a new round, which we should parse on the go
(defun sensible-convert-input (str)
diff --git a/2022/puzzle-3.lisp b/2022/puzzle-3.lisp
index c5ee3d3..e2e17cc 100644
--- a/2022/puzzle-3.lisp
+++ b/2022/puzzle-3.lisp
@@ -1,4 +1,4 @@
-(defvar input (uiop:read-file-string "2022/3-input"))
+(defvar input (uiop:read-file-string "3-input"))
(defun split-string-in-two (s)
(let ((len (length s)))
diff --git a/2022/puzzle-4.lisp b/2022/puzzle-4.lisp
index 04c7bfb..e0d4469 100644
--- a/2022/puzzle-4.lisp
+++ b/2022/puzzle-4.lisp
@@ -4,7 +4,7 @@
;; and since we're working with integers, it's simply checking if the
;; bounds are included i.e. c in [a,b] and d in [a,b]
-(defvar input (uiop:read-file-string "2022/4-input"))
+(defvar input (uiop:read-file-string "4-input"))
(defun parse-bound (str)
"Given STR=\"a-b\" return (a b)"
diff --git a/2022/puzzle-5.lisp b/2022/puzzle-5.lisp
index 70c6bb6..0bcbdf3 100644
--- a/2022/puzzle-5.lisp
+++ b/2022/puzzle-5.lisp
@@ -1,4 +1,4 @@
-(defvar input (uiop:read-file-string "2022/5-input"))
+(defvar input (uiop:read-file-string "5-input"))
;; When we get two newlines, it means the end of the initial state and
diff --git a/2022/puzzle-6.lisp b/2022/puzzle-6.lisp
index b3fa458..8869495 100644
--- a/2022/puzzle-6.lisp
+++ b/2022/puzzle-6.lisp
@@ -1,4 +1,4 @@
-(defvar input (with-input-from-string (s (uiop:read-file-string "2022/6-input"))
+(defvar input (with-input-from-string (s (uiop:read-file-string "6-input"))
(read-line s nil)))
(defun is-unique (lst)