Maze solving: Difference between revisions

m
Line 1,473:
.
endpos = n * n - 1
startpos = n + 2
proc make_maze . .
for i = 1 to len m[]
Line 1,484 ⟶ 1,483:
m[n * n - n + i] = 2
.
h = 2 * random 15 - n + n * 2 * random 15
call m_maze startposh
m[endpos] = 0
endpos += n
Line 1,511:
call solve (dir + 1) mod 4 + 1 posn found
if found = 0
call mark posn 777888
sleep 0.08
.
Line 1,518:
.
sleep 1
call solve 0 startposn + 2 found
</syntaxhighlight>
 
2,097

edits