Challenge 345 Task 1 and 2 solutions in Perl by Matthias Muth - Update

1 files changed, 0 insertions, 7 deletions

diff --git a/challenge-345/matthias-muth/perl/ch-1.pl b/challenge-345/matthias-muth/perl/ch-1.pl
index 15057cca5f..5d71a73cbd 100755
--- a/challenge-345/matthias-muth/perl/ch-1.pl
+++ b/challenge-345/matthias-muth/perl/ch-1.pl
@@ -14,13 +14,6 @@ use feature 'signatures';
 no warnings 'experimental::signatures';
 
 sub peak_positions( @ints ) {
-    return grep {
-               ( $_ == 0      || $ints[$_] > $ints[ $_ - 1 ] )
-            && ( $_ == $#ints || $ints[$_] > $ints[ $_ + 1 ] )
-        } keys @ints;
-}
-
-sub peak_positions( @ints ) {
     my @ridge = ( 0, @ints, 0 );
     return grep $ridge[$_] < $ridge[ $_ + 1 ] > $ridge[ $_ + 2 ], keys @ints;
 }