diff options
author | Aryadev Chavali <aryadev@aryadevchavali.com> | 2023-06-26 08:35:43 +0100 |
---|---|---|
committer | Aryadev Chavali <aryadev@aryadevchavali.com> | 2023-06-26 08:36:53 +0100 |
commit | c0964cbb42710129a217e84bf7525f68f3fd670e (patch) | |
tree | faa7e762fb747342c44c9852eee84ec7e3f2860a /2022/puzzle-1.lisp | |
parent | 29cacf2394a6d64f1ab3d5ba13a35f3beb08c3c7 (diff) | |
download | advent-of-code-c0964cbb42710129a217e84bf7525f68f3fd670e.tar.gz advent-of-code-c0964cbb42710129a217e84bf7525f68f3fd670e.tar.bz2 advent-of-code-c0964cbb42710129a217e84bf7525f68f3fd670e.zip |
(*->2022)~made it clear what advent of code I'm doing
Diffstat (limited to '2022/puzzle-1.lisp')
-rw-r--r-- | 2022/puzzle-1.lisp | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/2022/puzzle-1.lisp b/2022/puzzle-1.lisp new file mode 100644 index 0000000..3a1510e --- /dev/null +++ b/2022/puzzle-1.lisp @@ -0,0 +1,26 @@ +(defvar input (uiop:read-file-string "2022/1-input")) +(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))) |