diff options
| author | Adam Russell <ac.russell@live.com> | 2022-12-18 00:38:42 -0500 |
|---|---|---|
| committer | Adam Russell <ac.russell@live.com> | 2022-12-18 00:38:42 -0500 |
| commit | 2c8adb34a908dbfd5140d54fa8ae108bb4823e8f (patch) | |
| tree | f38c0f86d292d03b387582e91057c7330f1338e1 | |
| parent | c6289768c1e3790266ded53e7777ff2fe391699e (diff) | |
| download | perlweeklychallenge-club-2c8adb34a908dbfd5140d54fa8ae108bb4823e8f.tar.gz perlweeklychallenge-club-2c8adb34a908dbfd5140d54fa8ae108bb4823e8f.tar.bz2 perlweeklychallenge-club-2c8adb34a908dbfd5140d54fa8ae108bb4823e8f.zip | |
added blog links
| -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:{ |