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 0360704f69
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)) ;;(setf node-array (make-array '(line-length line-count) :initial-element nil))
finally finally
;;(print line-length) (print line-length)
;;(print line-count) (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) (setf (aref node-array (cdr starting-pos) (car starting-pos)) t)
(return (values input-array node-array starting-pos)) (return (values input-array node-array starting-pos))
)))) ))))
@ -165,6 +165,7 @@
) )
finally finally
(print "--")
(print node-array) (print node-array)
(print steps) (print steps)
) )

2
src/aoc10.lisp
View file

@ -37,7 +37,7 @@
finally finally
;;(print line-length) ;;(print line-length)
;;(print line-count) ;;(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) (setf (aref node-array (cdr starting-pos) (car starting-pos)) t)
(return (values input-array node-array starting-pos)) (return (values input-array node-array starting-pos))
)))) ))))

15
src/aoc10test.txt
View file

@ -1,5 +1,10 @@
7-F7- .F----7F7F7F7F-7....
.FJ|7 .|F--7||||||||FJ....
SJLL7 .||.FJ||||||||L7....
|F--J FJL7L7LJLJ||LJ.L-7..
LJ.LJ L--J.L7...LJS7F-7L7.
....F-J..F7FJ|L7L7L7
....L7.F7||L7|.L7L7|
.....|FJLJ|FJ|F7|.LJ
....FJL-7.||.||||...
....L---J.LJ.LJLJ...