From d6504cf10304bd3fbf559c62a793848342dd98b4 Mon Sep 17 00:00:00 2001
From: KjetilS <kjetilskotheim@gmail.com>
Date: Sun, 7 Jul 2024 22:29:25 +0200
Subject: https://theweeklychallenge.org/blog/perl-weekly-challenge-276/

---
 challenge-276/kjetillll/perl/ch-1.pl | 2 +-
 challenge-276/kjetillll/perl/ch-2.pl | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/challenge-276/kjetillll/perl/ch-1.pl b/challenge-276/kjetillll/perl/ch-1.pl
index 5ffbce9b13..5aafa7b947 100644
--- a/challenge-276/kjetillll/perl/ch-1.pl
+++ b/challenge-276/kjetillll/perl/ch-1.pl
@@ -4,7 +4,7 @@ sub complete_day_pair_count {
     my $pairs = 0;
     "@_" =~ /
              \b(\d+)\b .+ \b(\d+)\b
-             (??{ $pairs+=($1+$2)%24==0;'^' })
+             (??{ $pairs += ($1 + $2) % 24 == 0; '^' })
 	    /x;
     $pairs
 }
diff --git a/challenge-276/kjetillll/perl/ch-2.pl b/challenge-276/kjetillll/perl/ch-2.pl
index 84e1565657..ef31b9345e 100644
--- a/challenge-276/kjetillll/perl/ch-2.pl
+++ b/challenge-276/kjetillll/perl/ch-2.pl
@@ -4,7 +4,7 @@ sub maximum_frequency {
     my %freq;
     $freq{ $_ }++ for @_;
     my $max_freq = max( values %freq );
-    sum( map $freq{$_}, grep $freq{$_} == $max_freq, keys%freq )
+    sum( map $_, grep $_ == $max_freq, values %freq )
 }
 
 is maximum_frequency( @{ $$_{input} } ), $$_{output}
-- 
cgit