Rosetta Code

Kolakoski sequence: Difference between revisions

Page Discussion

Kolakoski sequence (view source)

Revision as of 00:35, 24 May 2018

17 bytes removed ,  6 years ago
m
→‎{{header|Perl 6}}: Style tweaks
(→‎{{header|Perl 6}}: Add a Perl6 example)
m (→‎{{header|Perl 6}}: Style tweaks)
Line 245:
 
<lang perl6>sub kolakoski (*@seed) {
my @l = @seed[0] == 1 ?? flat @seed[0] xx @seed[0], @seed[1] xx @seed[1] !! flat @seed[0] xx @seed[0];
my $k = @seed[0] == 1 ?? 1 !! 0;
my @k = flat @l,seed[0] {== $k++;1 ?? flat @seed[$k0] %xx +@seed[0], @seed[1] xx @kseed[$k1] }!! ...@seed[0] *;xx @seed[0],
{ $k++; flat @seed[$k % +@seed] xx @k[$k] } ... *;
}
 
sub rle (*@series) { [@series.join.subst(/((.)$0*)/, -> { $0.chars }, :g).comb».Int] }
 
# Testing
Thundergnat
10,327

edits

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