One-dimensional cellular automata: Difference between revisions
One-dimensional cellular automata (view source)
Revision as of 19:29, 17 October 2012
, 11 years agoAdd XPL0
(→{{header|Erlang}}: added implementation) |
(Add XPL0) |
||
Line 2,651:
008: __##________________
Sample stable after 8 generations.</pre>
=={{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>
|