diff options
| -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>; } |