From bcc82409e1ea44ccc5f662a05c8bb9f0daf3aade Mon Sep 17 00:00:00 2001
From: Thomas Voss <mail@thomasvoss.com>
Date: Tue, 10 Dec 2024 21:07:04 +0100
Subject: Remove outer (let) and just use with =

---
 2024/10/puzzles.lisp | 12 ++++++------
 1 file 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)
-- 
cgit v1.2.3