automaton.p6

class Automaton {
    my sub B($x) { 1 +< $x }
    has uint $.rule;
    has uint64 $.state;
    method gist { $!state.fmt("%064b").flip }
    method succ {
	loop (my uint64 $st = my $i = 0; $i < 64; $i++) {
	    if ($!rule +& B(7 +& (($!state +> ($i - 1)) +| ($!state +< (65 - $i))))) {
		$st = $st +| B($i);
	    }
	}
	self.new: :$!rule, :state($st);
    }
}
 
my Automaton $a .= new: :rule(90), :state( 1 );

say $a++ for ^10;