wip 10-2

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)
 	   			 )

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))
 			))))

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...