Re: PPGA - Prolog-Perl Golf Association: Run-length encoding (take 2)

[MeowChow]

Make that 53 (and strict, to boot) ... ;-)

sub rle {
  my$c;map{shift;$c++;$_[0]ne$_?("$_*$c",$c=0)[0]:()}@_
}

update: err.. 51

sub rle {
  my$c;map{shift;$c++;$_[0]ne$_?"$_*$c"|($c=''):()}@_
}

   MeowChow                                   
               s aamecha.s a..a\u$&owag.print