From 30c59e1ad1c0fcff926d142d43d3ab23250191b2 Mon Sep 17 00:00:00 2001 From: Niels van Dijke Date: Mon, 2 Jan 2023 10:54:48 +0000 Subject: Simplify task 1 --- challenge-198/perlboy1967/perl/ch-1.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/challenge-198/perlboy1967/perl/ch-1.pl b/challenge-198/perlboy1967/perl/ch-1.pl index 0751c226c2..16fb46d579 100755 --- a/challenge-198/perlboy1967/perl/ch-1.pl +++ b/challenge-198/perlboy1967/perl/ch-1.pl @@ -35,7 +35,7 @@ sub maxGap { my $maxGap = max slide { $b - $a } @l; # Find and return maxGap pairs - scalar grep { defined } slide { $b - $a == $maxGap ? [$a,$b] : undef } @l; + scalar grep { $_ } slide { $b - $a == $maxGap } @l; } -- cgit