Conway's Game of Life: Difference between revisions

[https://easylang.online/apps/game-of-life.html Run it]

 

n += 1

subr init

for r = 1 to n - 1

for c = 1 to n - 1

if randomf < 0.3

f[i] = 1

for r = 1 to n - 1

for c = 1 to n - 1

move (c - 1) * f (r - 1) * f

rect f * 0.9 f * 0.9

for r = 1 to n - 1

sm = 0

sr = p[i - n + 1] + p[i + 1] + p[i + n + 1]

for c = 1 to n - 1

c = mouse_x div f

r = mouse_y div f

f[i] = 1 - f[i]

call show

len p[] n * n + n + 1

call init

 

=={{header|eC}}==