Anonymous user
Forest fire: Difference between revisions
Updated to compile with Nim 1.4. Some formatting and case changes.
(Updated to compile with Nim 1.4. Some formatting and case changes.) |
|||
Line 5,597:
=={{header|Nim}}==
{{trans|C}}
<lang nim>import
randomize()
type State {.pure.} = enum Empty, Tree, Fire
const
proc chance(prob: float): bool {.inline.} =
# Set the size
var w, h: int
if paramCount() >= 2:
w =
h =
if w <= 0: w = 30
if h <= 0: h = 30
iterator fields(a = (0, 0), b = (h-1, w-1)): tuple[y, x: int] =▼
## Iterate over fields in the universe
▲iterator fields(a = (0,0), b = (h-1,w-1)) =
for y in max(a[0], 0) .. min(b[0], h-1):
for x in max(a[1], 0) .. min(b[1], w-1):
yield (y, x)
# Initialize
var univ, univNew = newSeqWith(h, newSeq[State]
while true:
# Show.
stdout.write "\e[H"
for y, x in fields():
stdout.write
if x == 0: stdout.write "\e[E"
stdout.flushFile
# Evolve.
for y, x in fields():
case univ[y][x]
of Fire:
univNew[y][x] = Empty
of Empty:
if chance
of Tree:
for y1, x1 in fields((y-1, x-1), (y+1, x+1)):
if univ[y1][x1] == Fire:
break
if chance(BurnProb): univNew[y][x] = Fire
univ = univNew
sleep 200</lang>
| |||