in reply to Yet Another Rosetta Code Problem (Perl, Ruby, Python, Haskell, ...)

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;

[download]

  • Comment on Re: Yet Another Rosetta Code Problem (Perl, Ruby, Python, Haskell, ...)
  • Download Code

Replies are listed 'Best First'.
Re^2: Yet Another Rosetta Code Problem (Perl, Ruby, Python, Haskell, ...)
by Anonymous Monk on Sep 18, 2007 at 10:18 UTC
    I like the scan/map solution of ruby but I must admit too, that the javascript solution comes out cleanest :) "ZBBBCZZ".match(/((.)\2*)/g)
[reply]

In Section Meditations