diff options
| author | Mohammad Sajid Anwar <Mohammad.Anwar@yahoo.com> | 2024-07-07 21:45:21 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2024-07-07 21:45:21 +0100 |
| commit | 40b1696a12be1119d7312ea565ae9e760631b9bd (patch) | |
| tree | fb0a9bd7e9cba9f162850a4fe00c5459558d72d0 | |
| parent | 8bb3a9ac3d647a8ffafb1931dc3864ba416fc557 (diff) | |
| parent | 95ddd94d774ca018b56b537a15919285143399fd (diff) | |
| download | perlweeklychallenge-club-40b1696a12be1119d7312ea565ae9e760631b9bd.tar.gz perlweeklychallenge-club-40b1696a12be1119d7312ea565ae9e760631b9bd.tar.bz2 perlweeklychallenge-club-40b1696a12be1119d7312ea565ae9e760631b9bd.zip | |
Merge pull request #10381 from kjetillll/challenge-276-kjetillll-2
https://theweeklychallenge.org/blog/perl-weekly-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} |