diff options
| -rw-r--r-- | challenge-195/adam-russell/blog.txt | 1 | ||||
| -rw-r--r-- | challenge-195/adam-russell/blog1.txt | 1 | ||||
| -rw-r--r-- | challenge-195/adam-russell/perl/ch-2.pl | 3 |
3 files changed, 4 insertions, 1 deletions
diff --git a/challenge-195/adam-russell/blog.txt b/challenge-195/adam-russell/blog.txt new file mode 100644 index 0000000000..abccf585d0 --- /dev/null +++ b/challenge-195/adam-russell/blog.txt @@ -0,0 +1 @@ +http://www.rabbitfarm.com/cgi-bin/blosxom/perl/2022/12/18 diff --git a/challenge-195/adam-russell/blog1.txt b/challenge-195/adam-russell/blog1.txt new file mode 100644 index 0000000000..e92a1b378e --- /dev/null +++ b/challenge-195/adam-russell/blog1.txt @@ -0,0 +1 @@ +http://www.rabbitfarm.com/cgi-bin/blosxom/prolog/2022/12/18 diff --git a/challenge-195/adam-russell/perl/ch-2.pl b/challenge-195/adam-russell/perl/ch-2.pl index 3a543e2efe..9f56affde1 100644 --- a/challenge-195/adam-russell/perl/ch-2.pl +++ b/challenge-195/adam-russell/perl/ch-2.pl @@ -14,7 +14,8 @@ sub most_frequent_even{ map { $frequencies{$_}++ } @list; my @sorted = sort { $frequencies{$b} <=> $frequencies{$a} } @list; return $sorted[0] if $frequencies{$sorted[0]} != $frequencies{$sorted[1]}; - return (sort { $a <=> $b } @sorted)[0]; + my @tied = grep { $frequencies{$_} == $frequencies{$sorted[0]} } @list; + return (sort { $a <=> $b } @tied)[0]; } MAIN:{ |