Conway's Game of Life: Difference between revisions
m
→{{header|E}}
Kinitawowi (talk | contribs) |
m (→{{header|E}}) |
||
Line 3,573:
println(currentFrame)
}</lang>
=={{header|Easyprog.online}}==
<lang easyprog.online>subr init
for i range len f[]
if randomf < 0.3
f[i] = 1
else
f[i] = 0
.
.
timer 0
.
subr show
color 999
move 0 0
rect 100 100
color 000
for r range 50
for c range 50
if f[r * 50 + c] = 1
move c * 2 r * 2
rect 1.8 1.8
.
.
.
.
subr update
swap f[] p[]
for i range len f[]
# elements above and below
s = 0
if i >= 50
s += p[i - 50]
.
if i < 2450
s += p[i + 50]
.
h = i mod 50
if h <> 0
# not left border -> left elements
s += p[i - 1]
if i >= 50
s += p[i - 51]
.
if i < 2450
s += p[i + 49]
.
.
if h <> 49
# not right border -> right elements
s += p[i + 1]
if i >= 50
s += p[i - 49]
.
if i < 2450
s += p[i + 51]
.
.
if s <= 1 or s >= 4
f[i] = 0
elif s = 3
f[i] = 1
else
f[i] = p[i]
.
.
.
on timer
call update
call show
timer 0.5
.
on mouse_down
c = round (mouse_x / 2 - 0.5)
r = round (mouse_y / 2 - 0.5)
i = r * 50 + c
f[i] = 1 - f[i]
call show
timer 3
.
len f[] 50 * 50
len p[] 50 * 50
call init</lang>
=={{header|eC}}==
| |||