One-dimensional cellular automata: Difference between revisions

=={{header|XPL0}}==

<lang XPL0>code ChOut=8, CrLf=9;

int Gen, Now, New, I;

[Now:= $076A_A400;

for Gen:= 1 to 10 do

[for I:= 31 downto 0 do ChOut(0, if Now & 1<<I then ^# else ^_);

CrLf(0);

New:= 0;

for I:= 30 downto 1 do

case Now>>(I-1) & 7 of %011, %101, %110: New:= New ! 1<<I other;

Now:= New;

];

]</lang>

Output:

<pre>

_____###_##_#_#_#_#__#__________

_____#_#####_#_#_#______________

______##___##_#_#_______________

______##___###_#________________

______##___#_##_________________

______##____###_________________

______##____#_#_________________

______##_____#__________________

______##________________________

______##________________________

</pre>