Conway's Game of Life: Difference between revisions

[https://easyprog.online/ide/run.html?code=subr%20init%0Afor%20i%20range%20len%20f%5B%5D%0Af%5Bi%5D%20%3D%200%0A.%0Afor%20r%20range%2050%0Afor%20c%20range%2050%0Aif%20randomf%20%3C%200.3%0Af%5Br%20%2A%2052%20%2B%20c%20%2B%2053%5D%20%3D%201%0A.%0A.%0A.%0Atimer%200%0A.%0Asubr%20show%0Acolor%20787%0Amove%200%200%0Arect%20100%20100%0Acolor%20000%0Afor%20r%20range%2050%0Afor%20c%20range%2050%0Aif%20f%5Br%20%2A%2052%20%2B%20c%20%2B%2053%5D%20%3D%201%0Amove%20c%20%2A%202%20r%20%2A%202%0Arect%201.8%201.8%0A.%0A.%0A.%0A.%0Asubr%20update%0Aswap%20f%5B%5D%20p%5B%5D%0Afor%20r%20range%2050%0Afor%20c%20range%2050%0Ai%20%3D%20r%20%2A%2052%20%2B%20c%20%2B%2053%0As%20%3D%200%0As%20%2B%3D%20p%5Bi%20-%2053%5D%20%2B%20p%5Bi%20-%2052%5D%20%2B%20p%5Bi%20-%2051%5D%0As%20%2B%3D%20p%5Bi%20-%201%5D%20%2B%20p%5Bi%20%2B%201%5D%0As%20%2B%3D%20p%5Bi%20%2B%2051%5D%20%2B%20p%5Bi%20%2B%2052%5D%20%2B%20p%5Bi%20%2B%2053%5D%0Aif%20s%20%3C%3D%201%20or%20s%20%3E%3D%204%0Af%5Bi%5D%20%3D%200%0Aelif%20s%20%3D%203%0Af%5Bi%5D%20%3D%201%0Aelse%0Af%5Bi%5D%20%3D%20p%5Bi%5D%0A.%0A.%0A.%0A.%0Aon%20timer%0Acall%20update%0Acall%20show%0Atimer%200.5%0A.%0Aon%20mouse_down%0Ac%20%3D%20round%20%28mouse_x%20/%202%20-%200.5%29%0Ar%20%3D%20round%20%28mouse_y%20/%202%20-%200.5%29%0Ai%20%3D%20r%20%2A%2052%20%2B%20c%20%2B%2053%0Af%5Bi%5D%20%3D%201%20-%20f%5Bi%5D%0Acall%20show%0Atimer%203%0A.%0Alen%20f%5B%5D%2052%20%2A%2052%0Alen%20p%5B%5D%2052%20%2A%2052%0Acall%20init Run it]

for i range len f[]

f[i] = 0

.

f[r * 52 + c + 53] = 1

s += p[i - 53] + p[i - 52] + p[i - 51]

s += p[i - 1] + p[i + 1]

s += p[i + 51] + p[i + 52] + p[i + 53]

.

on mouse_down

c = round (mouse_x / 2 - 0.5)

r = round (mouse_y / 2 - 0.5)

i = r * 52 + c + 53

f[i] = 1 - f[i]

call show

timer 3