commit 4d20438dcb087c155b40cc443bee938d62424c4c
from: Lukas Henkel <lh@entf.net>
date: Wed Dec 13 06:15:18 2023 UTC

Exit early in case we do find both the perfect and imperfect por

commit - 62d7d1bf1637ff442375c27eebc0fbf4b56a227a
commit + 4d20438dcb087c155b40cc443bee938d62424c4c
blob - 6104d870771ce13cbf9181399fb8c2d4eb514659
blob + 315aea9b0a3899391bd3f02f42be7040873336f4
--- src/day-13.lisp
+++ 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)