diff options
| author | Niels van Dijke <perlboy@cpan.org> | 2021-06-17 19:55:52 +0000 |
|---|---|---|
| committer | Niels van Dijke <perlboy@cpan.org> | 2021-06-17 19:55:52 +0000 |
| commit | 0f3f1e13ceb7a3942cfcc6174faf9d582e90b830 (patch) | |
| tree | 0f09fb2dbf497f255e79335ef643e988f0353264 | |
| parent | 0bece7cc77cacd86203f5cef6b995f4e67f7f8bb (diff) | |
| download | perlweeklychallenge-club-0f3f1e13ceb7a3942cfcc6174faf9d582e90b830.tar.gz perlweeklychallenge-club-0f3f1e13ceb7a3942cfcc6174faf9d582e90b830.tar.bz2 perlweeklychallenge-club-0f3f1e13ceb7a3942cfcc6174faf9d582e90b830.zip | |
... remove clutter from regexp ...
| -rwxr-xr-x | challenge-117/perlboy1967/perl/ch-1.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-117/perlboy1967/perl/ch-1.pl b/challenge-117/perlboy1967/perl/ch-1.pl index b268b229c6..1a22567af0 100755 --- a/challenge-117/perlboy1967/perl/ch-1.pl +++ b/challenge-117/perlboy1967/perl/ch-1.pl @@ -24,5 +24,5 @@ printf "Missing row number(s) of file '%s' is/are '%s'\n", sub missingRows { my ($f) = @_; - return grep /\d/,slide{($a+1..$b-1)if($b-$a>1)}sort{$a<=>$b}map{/^(\d+).*/;$_=$1}read_file($f); + return grep /\d/,slide{($a+1..$b-1)if($b-$a>1)}sort{$a<=>$b}map{/^(\d+)/;$_=$1}read_file($f); } |