diff options
| -rw-r--r-- | challenge-189/e-choroba/blog.txt | 1 | ||||
| -rwxr-xr-x | challenge-189/e-choroba/perl/ch-2.pl | 13 |
2 files changed, 7 insertions, 7 deletions
diff --git a/challenge-189/e-choroba/blog.txt b/challenge-189/e-choroba/blog.txt new file mode 100644 index 0000000000..83bf6f46ae --- /dev/null +++ b/challenge-189/e-choroba/blog.txt @@ -0,0 +1 @@ +http://blogs.perl.org/users/e_choroba/2022/11/array-degree.html diff --git a/challenge-189/e-choroba/perl/ch-2.pl b/challenge-189/e-choroba/perl/ch-2.pl index 7108ed75cc..55e63a6e0b 100755 --- a/challenge-189/e-choroba/perl/ch-2.pl +++ b/challenge-189/e-choroba/perl/ch-2.pl @@ -11,24 +11,23 @@ sub array_degree (@array) { my %freq; my %from_to; - my @max = ([0, 0]); + my @max = (undef, 0); for my $pos (0 .. $#array) { my $e = $array[$pos]; ++$freq{$e}; if (exists $from_to{$e}) { $from_to{$e}[1] = $pos; } else { - $from_to{$e} = [$pos]; + $from_to{$e} = [$pos, $pos]; } - if ($freq{$e} >= $max[0][0]) { - @max = () if $freq{$e} > $max[0][0]; - unshift @max, [$freq{$e}, $e]; + if ($freq{$e} >= $max[-1]) { + @max = ($freq{$e}) if $freq{$e} > $max[-1]; + unshift @max, $e; } } - return [$array[0]] if $max[0][0] == 1; my %by_length = map +($_->[1] - $_->[0] => $_), - @from_to{ map $_->[1], @max }; + @from_to{@max[ 0 .. $#max - 1 ]}; my $shortest = $by_length{ min(keys %by_length) }; return [@array[ $shortest->[0] .. $shortest->[1] ]] } |