diff options
| author | KjetilS <kjetilskotheim@gmail.com> | 2024-07-07 22:36:26 +0200 |
|---|---|---|
| committer | KjetilS <kjetilskotheim@gmail.com> | 2024-07-07 22:36:26 +0200 |
| commit | 95ddd94d774ca018b56b537a15919285143399fd (patch) | |
| tree | 6c3324ad3eaa30bdfae5d46cd5d5cabe4c4f3c2b /challenge-276 | |
| parent | f522709dab87be43f3b916321df600b44c3fd3c3 (diff) | |
| download | perlweeklychallenge-club-95ddd94d774ca018b56b537a15919285143399fd.tar.gz perlweeklychallenge-club-95ddd94d774ca018b56b537a15919285143399fd.tar.bz2 perlweeklychallenge-club-95ddd94d774ca018b56b537a15919285143399fd.zip | |
https://theweeklychallenge.org/blog/perl-weekly-challenge-276/
Diffstat (limited to 'challenge-276')
| -rw-r--r-- | challenge-276/kjetillll/perl/ch-2.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-276/kjetillll/perl/ch-2.pl b/challenge-276/kjetillll/perl/ch-2.pl index ef31b9345e..98abf1c8b9 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 $_, grep $_ == $max_freq, values %freq ) + sum( grep $_ == $max_freq, values %freq ) } is maximum_frequency( @{ $$_{input} } ), $$_{output} |