advent-of-code-2023

commit ec8844f9c7b87cf8698b72528d49d5cc4c43d859
parent 66456ba8fb5ceb69ad7ea2f2c8fcc757a6b6e405
Author: Lukas Henkel <lh@entf.net>
Date:   Sun, 17 Dec 2023 08:16:21 +0100

We don't need to set these

Diffstat:
M
src/day-17.lisp
 | 
4
+---

1 file changed, 1 insertion(+), 3 deletions(-)
diff --git a/src/day-17.lisp b/src/day-17.lisp
@@ -77,9 +77,7 @@
                  do (cond
                       ((and existing-value
                             (< next-heat-cost (fourth existing-value)))
-                       (setf (nth 3 existing-value) next-heat-cost
-                             (nth 2 existing-value) steps
-                             (nth 1 existing-value) next-dir))
+                       (setf (fourth existing-value) next-heat-cost))
                       ((null existing-value)
                        (qpush todo (list next next-dir steps next-heat-cost)))))))