Hane/aoc2023
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

wip 10-2

Browse source
This commit is contained in:
Hane 2024-01-07 17:32:02 +01:00
commit acbd718eb0
3 changed files with 15 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/aoc10-2.lisp
View file

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