diff options
| -rwxr-xr-x | challenge-198/perlboy1967/perl/ch-1.pl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/challenge-198/perlboy1967/perl/ch-1.pl b/challenge-198/perlboy1967/perl/ch-1.pl index 7f4048ee66..ca0b9d5cc3 100755 --- a/challenge-198/perlboy1967/perl/ch-1.pl +++ b/challenge-198/perlboy1967/perl/ch-1.pl @@ -29,9 +29,10 @@ use Test::More; sub maxGap { return 0 if (scalar @_ < 2); - my @l = slide { $b - $a } sort { $a <=> $b } @_; + my @deltas = slide { $b - $a } sort { $a <=> $b } @_; + my $max = max(@deltas); - return scalar grep { $_ == max(@l) } @l; + return scalar grep { $_ == $max } @deltas; } |