wip 10-2

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