Conway's Game of Life: Difference between revisions
Content added Content deleted
(→{{header|Vlang}}: Rename "Vlang" in "V (Vlang)") |
|||
Line 5,304: | Line 5,304: | ||
[https://easylang.online/apps/game-of-life.html Run it] |
[https://easylang.online/apps/game-of-life.html Run it] |
||
<syntaxhighlight lang="text"> |
<syntaxhighlight lang="text"> |
||
# Game of life |
|||
# |
|||
n = 70 |
|||
n += 1 |
n += 1 |
||
subr init |
subr init |
||
for r = 1 to n - 1 |
for r = 1 to n - 1 |
||
for c = 1 to n - 1 |
for c = 1 to n - 1 |
||
i = r * n + c |
i = r * n + c + 1 |
||
if randomf < 0.3 |
if randomf < 0.3 |
||
f[i] = 1 |
f[i] = 1 |
||
Line 5,321: | Line 5,324: | ||
for r = 1 to n - 1 |
for r = 1 to n - 1 |
||
for c = 1 to n - 1 |
for c = 1 to n - 1 |
||
if f[r * n + c] = 1 |
if f[r * n + c + 1] = 1 |
||
move (c - 1) * f (r - 1) * f |
move (c - 1) * f (r - 1) * f |
||
rect f * 0.9 f * 0.9 |
rect f * 0.9 f * 0.9 |
||
Line 5,332: | Line 5,335: | ||
for r = 1 to n - 1 |
for r = 1 to n - 1 |
||
sm = 0 |
sm = 0 |
||
i = r * n |
i = r * n + 1 |
||
sr = p[i - n + 1] + p[i + 1] + p[i + n + 1] |
sr = p[i - n + 1] + p[i + 1] + p[i + n + 1] |
||
for c = 1 to n - 1 |
for c = 1 to n - 1 |
||
Line 5,356: | Line 5,359: | ||
c = mouse_x div f |
c = mouse_x div f |
||
r = mouse_y div f |
r = mouse_y div f |
||
i = r * n + c + n + |
i = r * n + c + n + 2 |
||
f[i] = 1 - f[i] |
f[i] = 1 - f[i] |
||
call show |
call show |
||
Line 5,364: | Line 5,367: | ||
len p[] n * n + n + 1 |
len p[] n * n + n + 1 |
||
call init |
call init |
||
timer 0 |
timer 0 |
||
</syntaxhighlight> |
|||
=={{header|eC}}== |
=={{header|eC}}== |