diff options
Diffstat (limited to '2024')
| -rw-r--r-- | 2024/10/puzzles.lisp | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/2024/10/puzzles.lisp b/2024/10/puzzles.lisp index a701c8d..dcfcc7c 100644 --- a/2024/10/puzzles.lisp +++ b/2024/10/puzzles.lisp @@ -1,12 +1,12 @@ #!/usr/bin/sbcl --script (defun main (filename) - (let ((lines (read-file-to-lines filename))) - (loop with dimensions = (array-dimensions lines) - for i from 0 below (first dimensions) - summing (loop for j from 0 below (second dimensions) - when (char= #\0 (aref lines i j)) - summing (score-for-trail-head lines i j))))) + (loop with lines = (read-file-to-lines filename) + with dimensions = (array-dimensions lines) + for i from 0 below (first dimensions) + summing (loop for j from 0 below (second dimensions) + when (char= #\0 (aref lines i j)) + summing (score-for-trail-head lines i j)))) (defun read-file-to-lines (filename) (with-open-file (stream filename) |