Use DOSEQS instead of LOOP

iamFIREcracker · Jan 28, 2024 · 4575875 · 4575875
1 parent 7b76b9b
commit 4575875
Showing 1 changed file with 6 additions and 3 deletions.
diff --git a/src/2023/day09.lisp b/src/2023/day09.lisp
@@ -2,13 +2,16 @@
 (in-package :aoc/2023/09)
 
 
-(defun parse-input (&optional (strings (uiop:read-file-lines #P"src/2023/day09.txt")))
+(defun parse-input (&optional (strings (aoc::read-problem-input 2023 09)))
   (mapcar #'extract-integers strings))
 
 
 (defun deltas (nums)
-  (loop for n in nums by #'cdr for m in (cdr nums) by #'cdr
-        collect (- m n)))
+  (looping
+    (doseqs ((n nums)
+             (m (cdr nums)))
+      (collect! (- m n)))))
+
 
 (defun prediction-sequences (history)
   (looping