diff options
| -rw-r--r-- | challenge-195/adam-russell/perl/ch-2.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-195/adam-russell/perl/ch-2.pl b/challenge-195/adam-russell/perl/ch-2.pl index 15a47ab5a5..143a0578aa 100644 --- a/challenge-195/adam-russell/perl/ch-2.pl +++ b/challenge-195/adam-russell/perl/ch-2.pl @@ -6,7 +6,7 @@ use v5.34; # than one even numbers then return the smallest even integer. # For all other case, return -1. ## -sub frequency{ +sub most_frequent_even{ my @list = @_; @list = grep { $_ % 2 == 0 } @list; return -1 if @list == 0; |