Rosetta Code

Elementary cellular automaton: Difference between revisions

Page Discussion

Elementary cellular automaton (view source)

Revision as of 23:54, 19 March 2014

61 bytes added ,  10 years ago
→‎{{header|Perl 6}}: some speed tweaks
(→‎{{header|Perl 6}}: some speed tweaks)
Line 170:
has ($.rule, @.cells);
method gist { <| |>.join: @!cells.map({$_ ?? '#' !! ' '}).join }
method code { $.!rule.fmt("%08b").flip.comb }
method succ {
self.new: :$.!rule, :cells(
self.code[
(4 «X*« @.!cells.rotate(-1))
Z+ (2 «X*« @.!cells)
Z+ @.!cells.rotate(1)
]
)
)
}
}
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/240784"