Anonymous user
Maze generation: Difference between revisions
Updated to work with Nim 1.4: added missing parameter type, import "random" instead of "math", changed "random" to "rand", changed ".. <" to "..<".
m (Delphi small fixes of my code) |
(Updated to work with Nim 1.4: added missing parameter type, import "random" instead of "math", changed "random" to "rand", changed ".. <" to "..<".) |
||
Line 5,101:
=={{header|Nim}}==
{{trans|D}}
<lang nim>import
randomize()
iterator randomCover[T](xs: openarray[T]): T =
var js = toSeq 0..xs.high
for i in countdown(js.high, 0):
let j = random(i
swap(js[i], js[j])
for j in js:
Line 5,127 ⟶ 5,121:
ver = newSeqWith(h, newSeqWith(w, "| ") & "|")
proc walk(x, y: int) =
vis[y][x] = true
for p in [[x-1,y], [x,y+1], [x+1,y], [x,y-1]].randomCover:
if p[0] notin 0 ..
if p[0] == x: hor[max(y, p[1])][x] = "+ "
if p[1] == y: ver[y][max(x, p[0])] = " "
walk p[0], p[1]
walk
for a,b in zip(hor, ver & @[""]).items:
echo join(a & "+\n" & b)</lang>
{{out}}
Example output:
<pre>+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
| |||