diff options
| author | Mohammad Sajid Anwar <Mohammad.Anwar@yahoo.com> | 2025-10-30 17:24:13 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2025-10-30 17:24:13 +0000 |
| commit | 88a930c6a8de82b2c59f19958b4e1493ede4a4e0 (patch) | |
| tree | ef8f949b824565e81d40d44b49ef5a2d8f75a87e | |
| parent | fdc7acdd2fe031263e50dd13dcc86f54133872b2 (diff) | |
| parent | fe4cb7ad1eab1109215dc93d491a93d283100fba (diff) | |
| download | perlweeklychallenge-club-88a930c6a8de82b2c59f19958b4e1493ede4a4e0.tar.gz perlweeklychallenge-club-88a930c6a8de82b2c59f19958b4e1493ede4a4e0.tar.bz2 perlweeklychallenge-club-88a930c6a8de82b2c59f19958b4e1493ede4a4e0.zip | |
Merge pull request #12948 from kjetillll/challenge-345-kjetillll-correction
https://theweeklychallenge.org/blog/perl-weekly-challenge-345/
| -rw-r--r-- | challenge-345/kjetillll/perl/ch-1.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-345/kjetillll/perl/ch-1.pl b/challenge-345/kjetillll/perl/ch-1.pl index 9ef8dece4a..0301c3c7a4 100644 --- a/challenge-345/kjetillll/perl/ch-1.pl +++ b/challenge-345/kjetillll/perl/ch-1.pl @@ -1,5 +1,5 @@ sub peaks { - grep { ( $_[$_-1] // -Inf ) < $_[$_] > ( $_[$_+1] // -Inf ) } 0 .. $#_ + grep { ( $_ == 0 ? -Inf : $_[$_-1] ) < $_[$_] > ( $_ == $#_ ? -Inf : $_[$_+1] ) } 0 .. $#_ } use Test::More tests => 5; is_deeply [ peaks(1, 3, 2) ], [1]; |