Forest fire: Difference between revisions
→{{header|EasyLang}}
(→{{header|Vlang}}: Rename "Vlang" in "V (Vlang)") |
|||
Line 3,838:
[https://easylang.online/apps/forest-fire.html Run it]
<syntaxhighlight lang="text">
p_fire = 0.00002
p_tree = 0.002
#
Line 3,845 ⟶ 3,846:
background 100
clear
for r
for c
i = r * 102 + c +
if randomf < 0.5
f[i] = 1
Line 3,856 ⟶ 3,857:
#
subr show
for r
for c
i = r * 102 + c +
h = f[i]
if h <> p[i]
Line 3,878 ⟶ 3,879:
subr update
swap f[] p[]
for r
for c
i = r * 102 + c +
if p[i] = 0
f[i] = 0
Line 3,906 ⟶ 3,907:
call update
timer 0.2
.
=={{header|Emacs Lisp}}==
| |||