Remove one slide() call. We don't need it

1 files changed, 2 insertions, 6 deletions

diff --git a/challenge-198/perlboy1967/perl/ch-1.pl b/challenge-198/perlboy1967/perl/ch-1.pl
index 23ae52616c..7f4048ee66 100755
--- a/challenge-198/perlboy1967/perl/ch-1.pl
+++ b/challenge-198/perlboy1967/perl/ch-1.pl
@@ -28,14 +28,10 @@ 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 @l = slide { $b - $a } sort { $a <=> $b } @_;
 
-  # Find and count maxGap pairs
-  scalar grep { $_ } slide { $b - $a == $maxGap } @l;
+  return scalar grep { $_ == max(@l) } @l;
 }