Merge pull request #7379 from PerlBoy1967/branch-for-challenge-198

Update to task 1

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