diff options
| -rw-r--r-- | 2024/puzzle-1.lisp | 15 | ||||
| -rw-r--r-- | 2024/util.lisp | 11 |
2 files changed, 26 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)))) diff --git a/2024/util.lisp b/2024/util.lisp new file mode 100644 index 0000000..f9b1d86 --- /dev/null +++ b/2024/util.lisp @@ -0,0 +1,11 @@ +(defmacro --> (first &rest functions) + (if (null functions) + first + `(let* ,(loop :for f :in (cons first functions) + appending `((_ ,f))) + _))) + +(defun zip (a b) + (loop for i in a + for j in b + collect (cons i j))) |