diff options
| author | Niels van Dijke <perlboy@cpan.org> | 2021-02-08 10:06:36 +0000 |
|---|---|---|
| committer | Niels van Dijke <perlboy@cpan.org> | 2021-02-08 10:06:36 +0000 |
| commit | 32a8602525fd96a8260a3c907410cfdae3d5b7af (patch) | |
| tree | 38d98e1664991d927f6cda85c43445edd7177bfd | |
| parent | b38b2a379228e886a96a71cf3c9fc8c6e1713b8c (diff) | |
| download | perlweeklychallenge-club-32a8602525fd96a8260a3c907410cfdae3d5b7af.tar.gz perlweeklychallenge-club-32a8602525fd96a8260a3c907410cfdae3d5b7af.tar.bz2 perlweeklychallenge-club-32a8602525fd96a8260a3c907410cfdae3d5b7af.zip | |
Task 1 & 2
| -rwxr-xr-x | challenge-099/perlboy1967/perl/ch-2.pl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/challenge-099/perlboy1967/perl/ch-2.pl b/challenge-099/perlboy1967/perl/ch-2.pl index f8f8b572c1..6d0b4716eb 100755 --- a/challenge-099/perlboy1967/perl/ch-2.pl +++ b/challenge-099/perlboy1967/perl/ch-2.pl @@ -45,11 +45,13 @@ foreach my $cCount (1 .. $l) { my $re2 = sprintf("%s(?<s%d>.*?)", join('', map { sprintf("(?<s%d>.*?)(?<t%d>$_)", $i++, $i++) } @substrings), $i); - + + # Find all matching combinations while ($S =~ m#$re2#g) { my %m = %+; my ($pre,$post) = ($`, $'); + # Build the 'evidence' string my @s; foreach my $k (keys %+) { if ($k =~ m#^(.)(\d+)#) { |