day10

2017-12-04 20:20:16 -05:00 · 2017-12-04 20:20:16 -05:00 · daadd18fa2
parent 86420d1bbd
commit daadd18fa2
2 changed files with 22 additions and 0 deletions
--- a/2015/10/repeat.pl
+++ b/2015/10/repeat.pl
@ -0,0 +1,12 @@
+use 5.20.0;
+
+my $s = <>;
+chomp $s;
+say $s;
+
+
+$s =~ s/(.)\1*/ length($&) . $1 /eg for 1..40;
+
+say $s;
+say length $s;
+
--- a/2015/10/repeat2.pl
+++ b/2015/10/repeat2.pl
@ -0,0 +1,10 @@
+use 5.20.0;
+
+my $s = <>;
+chomp $s;
+say $s;
+
+$s =~ s/(.)\1*/ length($&) . $1 /eg for 1..50;
+
+say length $s;
+