diff options
| -rwxr-xr-x | challenge-198/perlboy1967/perl/ch-1.pl | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/challenge-198/perlboy1967/perl/ch-1.pl b/challenge-198/perlboy1967/perl/ch-1.pl index 23ae52616c..ca0b9d5cc3 100755 --- a/challenge-198/perlboy1967/perl/ch-1.pl +++ b/challenge-198/perlboy1967/perl/ch-1.pl @@ -28,14 +28,11 @@ use Test::More; sub maxGap { return 0 if (scalar @_ < 2); - - my @l = sort { $a <=> $b } @_; - # Find maxGap size - my $maxGap = max slide { $b - $a } @l; + my @deltas = slide { $b - $a } sort { $a <=> $b } @_; + my $max = max(@deltas); - # Find and count maxGap pairs - scalar grep { $_ } slide { $b - $a == $maxGap } @l; + return scalar grep { $_ == $max } @deltas; } |