Kolakoski sequence: Difference between revisions
m
→{{header|Perl 6}}: Style tweaks
Thundergnat (talk | contribs) (→{{header|Perl 6}}: Add a Perl6 example) |
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: Style tweaks) |
||
Line 245:
<lang perl6>sub kolakoski (*@seed) {
my $k = @seed[0] == 1 ?? 1 !! 0;
my @k = flat @
{ $k++; flat @seed[$k % +@seed] xx @k[$k] } ... *;
}
sub rle (*@series) {
# Testing
|