One-dimensional cellular automata: Difference between revisions
One-dimensional cellular automata in BASIC256
(One-dimensional cellular automata in BASIC256) |
|||
Line 732:
It halts when a stable state has been reached:
<pre>00110000000000000000 9</pre>
=={{header|BASIC256}}==
<lang BASIC256>arraybase 1
dim start = {0,1,1,1,0,1,1,0,1,0,1,0,1,0,1,0,0,1,0,0}
dim sgtes(start[?]+1)
for k = 0 to 9
print "Generation "; k; ": ";
for j = 0 to start[?]-1
if start[j] then print "#"; else print "_";
if start[j-1] + start[j] + start[j+1] = 2 then sgtes[j] = 1 else sgtes[j] = 0
next j
print
for j = 0 to start[?]-1
start[j] = sgtes[j]
next j
next k</lang>
=={{header|Batch File}}==
| |||