From 2c8adb34a908dbfd5140d54fa8ae108bb4823e8f Mon Sep 17 00:00:00 2001 From: Adam Russell Date: Sun, 18 Dec 2022 00:38:42 -0500 Subject: added blog links --- challenge-195/adam-russell/blog.txt | 1 + challenge-195/adam-russell/blog1.txt | 1 + challenge-195/adam-russell/perl/ch-2.pl | 3 ++- 3 files changed, 4 insertions(+), 1 deletion(-) create mode 100644 challenge-195/adam-russell/blog.txt create mode 100644 challenge-195/adam-russell/blog1.txt 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:{ -- cgit