Conway's Game of Life: Difference between revisions

[https://easyprog.online/ide/run.html?code=subr%20init%0Afor%20r20i%20range%205020len%0Afor20f%20c5B%20range5D%20500Af%0Ai5Bi%5D%20%3D%20r200%200A.%2A0Afor%205220r%2020range%2B2050%0Afor%20c%2020range%2B%20532050%0Aif%20randomf%20%3C%200.3%0Af%5Bi5Br%5D20%2A%2052%20%3D2B%20120c%0Aelse20%0Af2B%5Bi2053%5D%20%3D%200201%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%0Aj0As%20%3D%20i200%0As%20%2B%3D%20p%5Bi%20-%2053%0As5D%20%3D2B%20020p%0Afor5Bi%20r120-%20range2052%2035D%0Afor20%20c12B%20range20p%2035Bi%20-%2051%5D%0As%20%2B%3D%20p%5Bj5Bi%5D20-%0Aj201%5D%20%2B%3D20p%5Bi%20%2B%201%0A.5D%0Aj0As%20%2B%3D%204920p%0A.5Bi%0As20%2B%2051%5D%20-%3D2B%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.%0Alen%20f%5B%5D%2052%20%2A%2052%0Alen%20p%5B%5D%2052%20%2A%2052%0Acall%20init Run it]

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

s += forp[i c1- range1] 3+ p[i + 1]

s += p[i + s51] += p[ji + 52] + p[i + 53]