Elementary cellular automaton: Difference between revisions
Content added Content deleted
(→{{header|Perl 6}}: Add Python) |
(→{{header|Perl 6}}: some speed tweaks) |
||
Line 170: | Line 170: | ||
has ($.rule, @.cells); |
has ($.rule, @.cells); |
||
method gist { <| |>.join: @!cells.map({$_ ?? '#' !! ' '}).join } |
method gist { <| |>.join: @!cells.map({$_ ?? '#' !! ' '}).join } |
||
method code { $ |
method code { $!rule.fmt("%08b").flip.comb } |
||
method succ { |
method succ { |
||
self.new: :$!rule, :cells( |
|||
self.code[ |
|||
(4 X* @!cells.rotate(-1)) |
|||
Z+ (2 X* @!cells) |
|||
Z+ @!cells.rotate(1) |
|||
] |
|||
) |
|||
) |
|||
} |
} |
||
} |
} |