13 lines
225 B
Perl
13 lines
225 B
Perl
|
use 5.20.0;
|
||
|
|
|
||
|
|
my $compressed = <>;
|
||
|
|
chomp $compressed;
|
||
|
|
|
||
|
|
my $decompressed = '';
|
||
|
|
|
||
|
|
while( $compressed =~ s/^(.*?)\((\d+)x(\d+)\)// ) {
|
||
|
|
$decompressed .= $1 . ( substr $compressed, 0, $2, '' ) x $3;
|
||
|
|
}
|
||
|
|
|
||
|
|
say length $decompressed;
|