commit 7a47c795fe3202aaf521b547c482e9d98ff837aa
from: Lukas Henkel <lh@entf.net>
date: Sun Dec 01 11:50:28 2024 UTC

Parse input in same loop

commit - 35c946e7d5e16c208c621d362897e660a52d3ff0
commit + 7a47c795fe3202aaf521b547c482e9d98ff837aa
blob - 3685fe4aa894e109dcc7c05502eda7bf89b3b563
blob + 94fc9681b75320dc0bcbfab38152a71e3df209c3
--- src/day-1.lisp
+++ src/day-1.lisp
@@ -7,8 +7,9 @@
   (let ((right-counts (make-hash-table))
         left
         right)
-    (loop with input = (mapcar #'read-number-list (read-input input))
-          for row in input
+    (loop for line = (read-line input nil)
+          until (null line)
+          for row = (read-number-list line)
           for right-num = (cadr row)
           do (push (car row) left)
              (push right-num right)