aboutsummaryrefslogtreecommitdiff
path: root/puzzle-1.lisp
diff options
context:
space:
mode:
authorAryadev Chavali <aryadev@aryadevchavali.com>2023-06-26 07:16:31 +0100
committerAryadev Chavali <aryadev@aryadevchavali.com>2023-06-26 07:16:31 +0100
commitf8a0d0f1acc50711e470999434f7f8f504188b2e (patch)
treefde092685093fe73d936e51b02f6dc1c4a8d1f45 /puzzle-1.lisp
downloadadvent-of-code-f8a0d0f1acc50711e470999434f7f8f504188b2e.tar.gz
advent-of-code-f8a0d0f1acc50711e470999434f7f8f504188b2e.tar.bz2
advent-of-code-f8a0d0f1acc50711e470999434f7f8f504188b2e.zip
(1|2)+lisp files for puzzles 1 and 2
Includes code for both rounds, separated by comments.
Diffstat (limited to 'puzzle-1.lisp')
-rw-r--r--puzzle-1.lisp26
1 files changed, 26 insertions, 0 deletions
diff --git a/puzzle-1.lisp b/puzzle-1.lisp
new file mode 100644
index 0000000..45d1921
--- /dev/null
+++ b/puzzle-1.lisp
@@ -0,0 +1,26 @@
+(defvar input (uiop:read-file-string "puzzle-1-input.txt"))
+(defvar *sep (format nil "~%~%"))
+
+(defun get-lists (input)
+ (let ((pos (search *sep input)))
+ (with-input-from-string (s (subseq input 0 pos))
+ (let ((converted
+ (loop
+ for line = (read-line s nil nil)
+ while line
+ collect (parse-integer line))))
+ (if (null pos)
+ (list converted)
+ (cons converted
+ (get-lists (subseq input (+ pos 2)))))))))
+
+(defvar sums (sort (mapcar (lambda (lst) (reduce #'+ lst)) (get-lists input)) #'>))
+
+;; First challenge
+(format t "Top snacks: ~a" (car sums))
+
+;; Second challenge
+(let ((first (car sums))
+ (second (car (cdr sums)))
+ (third (car (cdr (cdr sums)))))
+ (format t "~a,~a,~a:>~a" first second third (+ first second third)))