16 lines
400 B
Text
16 lines
400 B
Text
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
|