Maze generation: Difference between revisions
m
J: add whitespace to get syntax highlighting to work properly
(Added link to "Maze solving") |
m (J: add whitespace to get syntax highlighting to work properly) |
||
Line 16:
unvisited=. 0,0,~|:0,0,~1$~y,x
path=.,:here=. ?x,y
while. 1 e.,unvisited do.
unvisited=.0 (<here+1)} unvisited
neighbors=. here+"1 (,-)=0 1
Line 24:
if.{.next=here
do. horiz=.1 (<-:here+next-0 1)} horiz
else. verti=. 1 (<-:here+next-1 0)} verti end.
path=.path,here=.next
else.
| |||