Kolakoski sequence: Difference between revisions

my $k = @seed[0] == 1 ?? 1 !! 0;

my @k = flat @seed[0] == 1 ?? (1, @seed[1] xx @seed[1]) !! @seed[0] xx @seed[0],

}