Maze generation: Difference between revisions
m
→{{header|EasyLang}}
Line 2,514:
=={{header|EasyLang}}==
[https://easylang.dev/ide/#cod=fZNLboMwEIb3PsVI2eShUJuGRRY5CUIVxSaxAnZk0qTt6TtjjDFqVRaB+efl+TxZQV9/Kzgro1x919awFbBBo3QCUTCDrxy24JUdCNaSzjm8wNrAHnhWbFinDPRlBQYDff573VzPzn4YCZxzdnO2geFin2++VwYZA4CmU7Wjj9Y60FQW7hZCLdLx0S0aukInDwo+n2iuNTYXG+itxJbR9ZW4pH6krsZ22Od4PM5Sbx8Kq22hxYwWR8qxQGLNkU41d9S2ILJiegevn8X/DJ1SNyTCBcuYbduhpIOXOBeSErDemw1UhMfz6EcYNztMQPoSjThr5EWGjKVyeIUDVCm3A0j7NMhOhCNJFF1tpO1BT5J2KPpDyVJWE1/6Rl0i45Q4HWpHOZW/FiwVRVqGyZGQXKYkl5WMGZOX5DKmjCT/aVwgur2AqL6qxcr8sylhTUS8jUWsWUbl0aSOf0l4CEP7/ttlgmvO8u0u4Y8SuIsihFHKQmczlMt46+P4kVugsUMcyCYyYPNC/AA= Run it]
<syntaxhighlight lang="text">
Line 2,540:
proc m_maze pos . .
m[pos] = 0
d[] = [ 1 2 3 4 ]
for i = 4 downto 1
Line 2,546:
dir = offs[d[d]]
d[d] = d[i]
if m[pos + dir] = 1 and m[pos + 2 * dir]
m[pos + dir] = 0
.
.
Line 2,564:
.
h = 2 * random 15 - n + n * 2 * random 15
m[endpos] = 0
endpos += n
.
</syntaxhighlight>
|