One-dimensional cellular automata: Difference between revisions
One-dimensional cellular automata (view source)
Revision as of 12:04, 27 February 2014
, 10 years ago→{{header|Perl 6}}: style: using a sigil for patterns
m (→{{header|Perl 6}}: using the instantiation idiom) |
m (→{{header|Perl 6}}: style: using a sigil for patterns) |
||
Line 2,363:
<lang perl6>class Automata {
constant @patterns = reverse ^8;
has Int $.rule;
has @.cells;
method gist { <| |>.join: @!cells.map({$_ ?? '#' !! ' '}).join }
method code { hash @patterns Z=> $.rule.fmt("%08b").comb }
method succ {
self.new: :$.rule, :cells(
|