adventofcode/2015/10/repeat.pl

13 lines
117 B
Perl
Raw Normal View History

2017-12-05 01:20:16 +00:00
use 5.20.0;
my $s = <>;
chomp $s;
say $s;
$s =~ s/(.)\1*/ length($&) . $1 /eg for 1..40;
say $s;
say length $s;