diff options
author | Oscar Najera <hi@oscarnajera.com> | 2022-12-13 15:00:12 +0100 |
---|---|---|
committer | Oscar Najera <hi@oscarnajera.com> | 2022-12-13 15:00:12 +0100 |
commit | 8cc2675f22d1fe94f09ad847e41a99a2450c1856 (patch) | |
tree | 923dae583e7852b1d7599d98e0e85d802b263bea /AoC2022 | |
parent | ae43db2e6342aa7f392b958ec6d0f98e7b04d95f (diff) | |
download | scratch-8cc2675f22d1fe94f09ad847e41a99a2450c1856.tar.gz scratch-8cc2675f22d1fe94f09ad847e41a99a2450c1856.tar.bz2 scratch-8cc2675f22d1fe94f09ad847e41a99a2450c1856.zip |
[AoC2022] Lisp
Diffstat (limited to 'AoC2022')
-rw-r--r-- | AoC2022/13/solver.lisp | 42 |
1 files changed, 42 insertions, 0 deletions
diff --git a/AoC2022/13/solver.lisp b/AoC2022/13/solver.lisp new file mode 100644 index 0000000..62b8c2d --- /dev/null +++ b/AoC2022/13/solver.lisp @@ -0,0 +1,42 @@ +(ql:quickload '(fiveam cl-json)) + +(defun input (filename &optional dividers) + (with-open-file (in filename) + (let ((data (loop for a = (ignore-errors (list (json:decode-json in) (json:decode-json in))) + while a + nconc a))) + (if dividers (append '(((2)) ((6))) data) data)))) + +(defun compare (f s) + (cond + ((eq f s) 'next) + ((and (null f) (not (null s))) t) + ((and (not (null f)) (null s)) nil) + ((and (integerp f) (integerp s)) (< f s)) + ((and (integerp f) (consp s)) (compare (list f) s)) + ((and (consp f) (integerp s)) (compare f (list s))) + ((let ((result (compare (car f) (car s)))) + (if (eq 'next result) (compare (cdr f) (cdr s)) + result))))) + +(defun solver-1 (filename) + (loop for i from 1 + for (a b) on (input filename) by #'cddr + when (compare a b) + sum i)) + +(fiveam:test first + (fiveam:is (= 13 (solver-1 "eg-in"))) + (fiveam:is (= 5330 (solver-1 "input")))) + +(defun solver-2 (filename) + (let ((packages (sort (input filename t) #'compare))) + (* + (1+ (position '((2)) packages :test #'equal)) + (1+ (position '((6)) packages :test #'equal))))) + +(fiveam:test second + (fiveam:is (= 140 (solver-2 "eg-in"))) + (fiveam:is (= 27648 (solver-2 "input")))) + +(fiveam:run-all-tests) |