This commit is contained in:
Yanick Champoux 2017-12-04 20:20:16 -05:00
parent 86420d1bbd
commit daadd18fa2
2 changed files with 22 additions and 0 deletions

12
2015/10/repeat.pl Normal file
View File

@ -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;

10
2015/10/repeat2.pl Normal file
View File

@ -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;