commit ec8844f9c7b87cf8698b72528d49d5cc4c43d859
from: Lukas Henkel <lh@entf.net>
date: Sun Dec 17 07:16:21 2023 UTC

We don't need to set these

commit - 66456ba8fb5ceb69ad7ea2f2c8fcc757a6b6e405
commit + ec8844f9c7b87cf8698b72528d49d5cc4c43d859
blob - 1036bc1e737e5c62bc10c1cd37ac1db41248b47a
blob + 73026d53378c815afb1af469593a20c29091ee47
--- src/day-17.lisp
+++ 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)))))))