diff options
| author | Niels van Dijke <perlboy@cpan.org> | 2023-01-02 10:56:38 +0000 |
|---|---|---|
| committer | Niels van Dijke <perlboy@cpan.org> | 2023-01-02 10:56:38 +0000 |
| commit | da8e4c4dafff1abcf726c103624743a83b446ee8 (patch) | |
| tree | 890287be31acbbbb7bbb292c46e26e3a1d35b39b | |
| parent | 30c59e1ad1c0fcff926d142d43d3ab23250191b2 (diff) | |
| download | perlweeklychallenge-club-da8e4c4dafff1abcf726c103624743a83b446ee8.tar.gz perlweeklychallenge-club-da8e4c4dafff1abcf726c103624743a83b446ee8.tar.bz2 perlweeklychallenge-club-da8e4c4dafff1abcf726c103624743a83b446ee8.zip | |
Comments
| -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 16fb46d579..23ae52616c 100755 --- a/challenge-198/perlboy1967/perl/ch-1.pl +++ b/challenge-198/perlboy1967/perl/ch-1.pl @@ -34,7 +34,7 @@ sub maxGap { # Find maxGap size my $maxGap = max slide { $b - $a } @l; - # Find and return maxGap pairs + # Find and count maxGap pairs scalar grep { $_ } slide { $b - $a == $maxGap } @l; } |