diff options
| -rw-r--r-- | challenge-276/kjetillll/perl/ch-1.pl | 2 | ||||
| -rw-r--r-- | 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} |