This commit is contained in:
Alan Daniels 2025-12-10 20:22:30 +11:00
parent 6c8340752c
commit 242088b896

View file

@ -43,7 +43,7 @@
(sum-kernel (make-kernel (read-diagram (uiop:read-file-lines "04example.txt")) 2 0))
(defun sum-diagram (lines)
(let ( (dim (length lines))
(let ((dim (length lines))
(diagram (read-diagram lines)))
(loop for y from 0 to dim
sum (loop for x from 0 to dim