day 18, part 2 complete, with a little bit ugly

2022-12-22 20:41:17 +00:00
parent 831f09c9cd
commit 598500e289
2 changed files with 7 additions and 3 deletions
--- a/day18.lisp
+++ b/day18.lisp
@@ -11,9 +11,9 @@
 (defun find-maxes (all-coords)
 (loop
  for (x y z) in all-coords
-  maximize (+ x 2) into xs
-  maximize (+ y 2) into ys
-  maximize (+ z 2) into zs
+  maximize (+ x 3) into xs
+  maximize (+ y 3) into ys
+  maximize (+ z 3) into zs
  finally (return (list xs ys zs))) )

 (defun fill-connectivity-array (all-coords connectivity-matrix)