From fe4cb7ad1eab1109215dc93d491a93d283100fba Mon Sep 17 00:00:00 2001
From: KjetilS <kjetilskotheim@gmail.com>
Date: Thu, 30 Oct 2025 17:57:57 +0100
Subject: https://theweeklychallenge.org/blog/perl-weekly-challenge-345/

---
 challenge-345/kjetillll/perl/ch-1.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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];
-- 
cgit