From 95ddd94d774ca018b56b537a15919285143399fd Mon Sep 17 00:00:00 2001 From: KjetilS Date: Sun, 7 Jul 2024 22:36:26 +0200 Subject: https://theweeklychallenge.org/blog/perl-weekly-challenge-276/ --- challenge-276/kjetillll/perl/ch-2.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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} -- cgit