From 1ddc695cb9e0c0d8dfe87ade4981142155cd91bf Mon Sep 17 00:00:00 2001 From: Aryadev Chavali Date: Mon, 2 Dec 2024 00:07:05 +0000 Subject: Belated 2024 first puzzle solution --- 2024/puzzle-1.lisp | 15 +++++++++++++++ 2024/util.lisp | 11 +++++++++++ 2 files changed, 26 insertions(+) create mode 100644 2024/puzzle-1.lisp create mode 100644 2024/util.lisp 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))) -- cgit v1.2.3-13-gbd6f