diff options
Diffstat (limited to '2024/puzzle-1.lisp')
-rw-r--r-- | 2024/puzzle-1.lisp | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/2024/puzzle-1.lisp b/2024/puzzle-1.lisp new file mode 100644 index 0000000..ad667d4 --- /dev/null +++ b/2024/puzzle-1.lisp @@ -0,0 +1,15 @@ +(load "util.lisp") + +(--> (uiop:read-file-lines "1-input") + (loop for line in _ + for x = (search " " line) + collect (parse-integer (subseq line 0 x)) into left + collect (parse-integer (subseq line (+ x 3))) into right + finally (return (list (sort left #'<) (sort right #'<)))) + (format t "Round 1: ~a~%Round 2: ~a~%" + (loop for x in (car _) + for y in (cadr _) + sum (abs (- y x))) + (loop for item in (car _) + for count = (count item (cadr _)) + sum (* item count)))) |