Conway's Game of Life: Difference between revisions
m
→{{header|Easyprog.online}}
m (→{{header|E}}) |
|||
Line 3,575:
=={{header|Easyprog.online}}==
[https://easyprog.online/ide/run.html?code=subr%20init%0Afor%20i%20range%20len%20f%5B%5D%0Aif%20randomf%20%3C%200.3%0Af%5Bi%5D%20%3D%201%0Aelse%0Af%5Bi%5D%20%3D%200%0A.%0A.%0Atimer%200%0A.%0Asubr%20show%0Acolor%20999%0Amove%200%200%0Arect%20100%20100%0Acolor%20000%0Afor%20r%20range%2050%0Afor%20c%20range%2050%0Aif%20f%5Br%20%2A%2050%20%2B%20c%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%20i%20range%20len%20f%5B%5D%0A%23%20elements%20above%20and%20below%0As%20%3D%200%0Aif%20i%20%3E%3D%2050%0As%20%2B%3D%20p%5Bi%20-%2050%5D%0A.%0Aif%20i%20%3C%202450%0As%20%2B%3D%20p%5Bi%20%2B%2050%5D%0A.%0Ah%20%3D%20i%20mod%2050%0Aif%20h%20%3C%3E%200%0A%23%20not%20left%20border%20-%3E%20left%20elements%0As%20%2B%3D%20p%5Bi%20-%201%5D%0Aif%20i%20%3E%3D%2050%0As%20%2B%3D%20p%5Bi%20-%2051%5D%0A.%0Aif%20i%20%3C%202450%0As%20%2B%3D%20p%5Bi%20%2B%2049%5D%0A.%0A.%0Aif%20h%20%3C%3E%2049%0A%23%20not%20right%20border%20-%3E%20right%20elements%0As%20%2B%3D%20p%5Bi%20%2B%201%5D%0Aif%20i%20%3E%3D%2050%0As%20%2B%3D%20p%5Bi%20-%2049%5D%0A.%0Aif%20i%20%3C%202450%0As%20%2B%3D%20p%5Bi%20%2B%2051%5D%0A.%0A.%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.%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%2050%20%2B%20c%0Af%5Bi%5D%20%3D%201%20-%20f%5Bi%5D%0Acall%20show%0Atimer%203%0A.%0Alen%20f%5B%5D%2050%20%2A%2050%0Alen%20p%5B%5D%2050%20%2A%2050%0Acall%20init Run it]
<lang easyprog.online>subr init
for i range len f[]
| |||