Elementary cellular automaton/Random number generator: Difference between revisions

→‎{{header|Perl 6}}: now is much faster using faster parent implementation
(→‎{{header|Perl 6}}: now is much faster using faster parent implementation)
Line 67:
 
=={{header|Perl 6}}==
<lang perl6>my Automaton $a .= new: :rule(30), :cells( 1, 0 xx 40100 );
A very easy to write, yet terribly slow version.
 
say :2[$a++.cells[0] xx 8] xx 10;</lang>
<lang perl6>my Automaton $a .= new: :rule(30), :cells( 1, 0 xx 40 );
 
say :2[$a++.cells[0] xx 8] xx 10;
</lang>
{{out}}
<pre>220 197 147 174 117 3997 39149 136171 93240 11241</pre>
Anonymous user