diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2021-06-30 12:15:33 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2021-06-30 12:15:33 +0100 |
| commit | 1cb28ef7764002e1e4bbb428ce8600b8ef43764a (patch) | |
| tree | 1f6b8bf9f42f824694af4f7aec1f27b427cf49d9 | |
| parent | 551f8dc93afa46a598644f62e74e67cdae6f0c28 (diff) | |
| parent | 8192d5e5cb81c51ab28598c97f6412de24de8205 (diff) | |
| download | perlweeklychallenge-club-1cb28ef7764002e1e4bbb428ce8600b8ef43764a.tar.gz perlweeklychallenge-club-1cb28ef7764002e1e4bbb428ce8600b8ef43764a.tar.bz2 perlweeklychallenge-club-1cb28ef7764002e1e4bbb428ce8600b8ef43764a.zip | |
Merge pull request #4381 from PerlBoy1967/patch-3
Update ch-1.pl
| -rwxr-xr-x | challenge-117/perlboy1967/perl/ch-1.pl | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/challenge-117/perlboy1967/perl/ch-1.pl b/challenge-117/perlboy1967/perl/ch-1.pl index 109b8e42e7..a19af8d516 100755 --- a/challenge-117/perlboy1967/perl/ch-1.pl +++ b/challenge-117/perlboy1967/perl/ch-1.pl @@ -25,5 +25,8 @@ sub missingRows { open(my $fh,'<',$f) || die; - return grep /\d/,slide{($a+1..$b-1)if($b-$a>1)}sort{$a<=>$b}map{/^(\d+)/;$_=$1}<$fh>; + return map { @$_ } slide {$b - $a > 1 ? [$a + 1 .. $b - 1] : [] } + sort { $a <=> $b } + map { /^(\d+)/; $_ = $1 } + <$fh>; } |