diff --git a/day18-scratch.lisp b/day18-scratch.lisp index 0096129..7b50d62 100644 --- a/day18-scratch.lisp +++ b/day18-scratch.lisp @@ -155,8 +155,12 @@ (fill-outside-with-2 '(0 0 0) *day-18-input-connectivity*) (count-open-sides-to-outside *day-18-input-connectivity*) +;; 2484 - not correct, too low ;; there's 1 at the edge of the array. whoops. so there are 0s in the input? ;; yep. so now what, shift all by 1? and add one more +1 to the find max? ;; hahaha, this is stupid. ;; but let's do it +(coords-from-input "day18-test.txt") ; yep. +1 + +;; 2490 diff --git a/day18.lisp b/day18.lisp index 60ee43b..93f1bab 100644 --- 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)