Rosetta Code

Kolakoski sequence: Difference between revisions

Page Discussion

Kolakoski sequence (view source)

Revision as of 11:22, 24 May 2018

24 bytes removed ,  6 years ago
m
→‎{{header|Perl 6}}: Simplify, DRY
(Promote to full task status.)
m (→‎{{header|Perl 6}}: Simplify, DRY)
Line 246:
<lang perl6>sub kolakoski (*@seed) {
my $k = @seed[0] == 1 ?? 1 !! 0;
my @k = flat @seed[0] == 1 ?? flat @seed[0] xx @seed[0](1, @seed[1] xx @seed[1]) !! @seed[0] xx @seed[0],
{ $k++; flat @seed[$k % +@seed] xx @k[$k] } ... *;
}
 
Thundergnat
10,327

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/282547"