diff options
| author | KjetilS <kjetilskotheim@gmail.com> | 2024-07-07 22:29:25 +0200 |
|---|---|---|
| committer | KjetilS <kjetilskotheim@gmail.com> | 2024-07-07 22:29:25 +0200 |
| commit | d6504cf10304bd3fbf559c62a793848342dd98b4 (patch) | |
| tree | 7168b1934f4808fd673a35147ba11252c1a98222 | |
| parent | 3417cbc794bf45ba6c48a905554933c5f37fb77c (diff) | |
| download | perlweeklychallenge-club-d6504cf10304bd3fbf559c62a793848342dd98b4.tar.gz perlweeklychallenge-club-d6504cf10304bd3fbf559c62a793848342dd98b4.tar.bz2 perlweeklychallenge-club-d6504cf10304bd3fbf559c62a793848342dd98b4.zip | |
https://theweeklychallenge.org/blog/perl-weekly-challenge-276/
| -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} |