From 0360704f690ac9ef00b8ca911d8eae509946dd82 Mon Sep 17 00:00:00 2001
From: Hane <inupwd@gmail.com>
Date: Sun, 7 Jan 2024 17:32:02 +0100
Subject: [PATCH] wip 10-2

---
 src/aoc10-2.lisp  |  7 ++++---
 src/aoc10.lisp    |  2 +-
 src/aoc10test.txt | 15 ++++++++++-----
 3 files changed, 15 insertions(+), 9 deletions(-)

diff --git a/src/aoc10-2.lisp b/src/aoc10-2.lisp
index 7650e46..a4e95c9 100644
--- a/src/aoc10-2.lisp
+++ b/src/aoc10-2.lisp
@@ -35,9 +35,9 @@
 		   	   ;;(setf node-array (make-array '(line-length line-count) :initial-element nil))
 
 			finally
-			   ;;(print line-length)
-			   ;;(print line-count)
-			   (setf node-array (make-array (list line-length line-count) :initial-element nil))
+			   (print line-length)
+			   (print line-count)
+			   (setf node-array (make-array (list line-count line-length) :initial-element nil))
 			   (setf (aref node-array (cdr starting-pos) (car starting-pos)) t)
 			   (return (values input-array node-array starting-pos))
 			))))
@@ -165,6 +165,7 @@
 	  
 					 )
 			 finally
+				(print "--")
 				(print node-array)
 				(print steps)
 	   			 )
diff --git a/src/aoc10.lisp b/src/aoc10.lisp
index 9b4b61b..befdcd0 100644
--- a/src/aoc10.lisp
+++ b/src/aoc10.lisp
@@ -37,7 +37,7 @@
 			finally
 			   ;;(print line-length)
 			   ;;(print line-count)
-			   (setf node-array (make-array (list line-length line-count) :initial-element nil))
+			   (setf node-array (make-array (list line-count line-length) :initial-element nil))
 			   (setf (aref node-array (cdr starting-pos) (car starting-pos)) t)
 			   (return (values input-array node-array starting-pos))
 			))))
diff --git a/src/aoc10test.txt b/src/aoc10test.txt
index 3aea4dd..adaae96 100644
--- a/src/aoc10test.txt
+++ b/src/aoc10test.txt
@@ -1,5 +1,10 @@
-7-F7-
-.FJ|7
-SJLL7
-|F--J
-LJ.LJ
+.F----7F7F7F7F-7....
+.|F--7||||||||FJ....
+.||.FJ||||||||L7....
+FJL7L7LJLJ||LJ.L-7..
+L--J.L7...LJS7F-7L7.
+....F-J..F7FJ|L7L7L7
+....L7.F7||L7|.L7L7|
+.....|FJLJ|FJ|F7|.LJ
+....FJL-7.||.||||...
+....L---J.LJ.LJLJ...