diff options
Diffstat (limited to '2024/10/puzzles.lisp')
| -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 d67b075..fcea592 100644 --- a/2024/10/puzzles.lisp +++ b/2024/10/puzzles.lisp @@ -4,9 +4,9 @@ (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)))) + sum (loop for j from 0 below (second dimensions) + when (char= #\0 (aref lines i j)) + sum (score-for-trail-head lines i j)))) (defun read-file-to-lines (filename) (with-open-file (stream filename) @@ -33,9 +33,9 @@ with dimensions = (array-dimensions lines) for (i . j) in (list (cons (1- i) j) (cons i (1- j)) (cons (1+ i) j) (cons i (1+ j))) - when (and (< -1 i (first dimensions)) - (< -1 j (second dimensions)) - (char= (aref lines i j) needs)) + if (and (< -1 i (first dimensions)) + (< -1 j (second dimensions)) + (char= (aref lines i j) needs)) append (positions-of-nines lines i j))))) (format t "~d~%" (main "input"))
\ No newline at end of file |