Re^7: 99 Problems in Perl6

in reply to Re^6: 99 Problems in Perl6
in thread 99 Problems in Perl6

And indeed, you can do that in Perl too:

multi compress () { () }
multi compress ($a) { item $a }
multi compress ($x, $y, *@xs) { $x xx ($x !=== $y), compress($y, |@xs)
+ }

my @x = <a a a a b c c a a d e e e e>;
say perl compress |@x;
[download]

In Section Meditations