diff options
| author | Niels van Dijke <perlboy@cpan.org> | 2023-01-02 10:54:48 +0000 |
|---|---|---|
| committer | Niels van Dijke <perlboy@cpan.org> | 2023-01-02 10:54:48 +0000 |
| commit | 30c59e1ad1c0fcff926d142d43d3ab23250191b2 (patch) | |
| tree | f2a73ec234b50c2e9f09aa8c1932e226572d60d5 | |
| parent | f2e9a23bbd801e4fc9c5366aca1c096f54875f96 (diff) | |
| download | perlweeklychallenge-club-30c59e1ad1c0fcff926d142d43d3ab23250191b2.tar.gz perlweeklychallenge-club-30c59e1ad1c0fcff926d142d43d3ab23250191b2.tar.bz2 perlweeklychallenge-club-30c59e1ad1c0fcff926d142d43d3ab23250191b2.zip | |
Simplify task 1
| -rwxr-xr-x | challenge-198/perlboy1967/perl/ch-1.pl | 2 |
1 files changed, 1 insertions, 1 deletions
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; } |