diff options
| author | KjetilS <kjetilskotheim@gmail.com> | 2025-10-30 17:57:57 +0100 |
|---|---|---|
| committer | KjetilS <kjetilskotheim@gmail.com> | 2025-10-30 17:57:57 +0100 |
| commit | fe4cb7ad1eab1109215dc93d491a93d283100fba (patch) | |
| tree | ef8f949b824565e81d40d44b49ef5a2d8f75a87e | |
| parent | fdc7acdd2fe031263e50dd13dcc86f54133872b2 (diff) | |
| download | perlweeklychallenge-club-fe4cb7ad1eab1109215dc93d491a93d283100fba.tar.gz perlweeklychallenge-club-fe4cb7ad1eab1109215dc93d491a93d283100fba.tar.bz2 perlweeklychallenge-club-fe4cb7ad1eab1109215dc93d491a93d283100fba.zip | |
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]; |