8 lines
111 B
Perl
8 lines
111 B
Perl
|
sub encode {
|
||
|
|
shift =~ s/(.)\1*/length($&).$1/grse;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub decode {
|
||
|
|
shift =~ s/(\d+)(.)/$2 x $1/grse;
|
||
|
|
}
|