Though, it has some "issues"...sub rle { my$c;map{shift;$c++;$_[0]ne$_?do{$a="$_*$c";$c=0;$a}:()}@_ }
MeowChow s aamecha.s a..a\u$&owag.print
In reply to Re: PPGA - Prolog-Perl Golf Association: Run-length encoding
by MeowChow
in thread PPGA - Prolog-Perl Golf Association: Run-length encoding
by princepawn
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |