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