Re: Yet Another Rosetta Code Problem (Perl, Ruby, Python, Haskell, ...)

[eyepopslikeamosquito]

For cheap thrills, a Perl 5 version using reduce:

use List::Util qw(reduce);
my $s = "ZBBBCZZ";
my $x = reduce { if (@$a && index($a->[-1], $b) >= 0) { $a->[-1] .= $b
+ } else { push @$a, $b } $a } [], split //, $s;

[Anonymous Monk]

I like the scan/map solution of ruby but I must admit too, that the javascript solution comes out cleanest :) "ZBBBCZZ".match(/((.)\2*)/g)