commit 4d20438dcb087c155b40cc443bee938d62424c4c
parent 62d7d1bf1637ff442375c27eebc0fbf4b56a227a
Author: Lukas Henkel <lh@entf.net>
Date: Wed, 13 Dec 2023 07:15:18 +0100
Exit early in case we do find both the perfect and imperfect por
Diffstat:
1 file changed, 1 insertion(+), 0 deletions(-)
diff --git a/src/day-13.lisp b/src/day-13.lisp
@@ -46,6 +46,7 @@
do (setf perfect-point-of-reflection (1+ reflection-point))
when (= reflection-imperfections 1)
do (setf imperfect-point-of-reflection (1+ reflection-point))
+ until (and perfect-point-of-reflection imperfect-point-of-reflection)
finally (return (list perfect-point-of-reflection imperfect-point-of-reflection)))))
(defun day-13 (input)