adventofcode/2015/10/repeat2.pl
Yanick Champoux daadd18fa2 day10
2017-12-04 20:20:16 -05:00

11 lines
108 B
Perl

use 5.20.0;
my $s = <>;
chomp $s;
say $s;
$s =~ s/(.)\1*/ length($&) . $1 /eg for 1..50;
say length $s;