查找最小值，即数组 Perl 中的最大时间

Question

我需要找出数组中出现的最小值。我已将这些值存储在其他数组中。

my @arr=(1,2,3,4,1,3,4,1);

1 是出现次数最多的最小值。

Answer 1

如果有两个或多个元素出现相同次数，则首选较小的元素：

my @arr=(1,2,3,4,1,3,4,1);
my %seen;
$seen{$_}++ for @arr;
my ($min_val) = sort { $seen{$b} <=> $seen{$a} || $a <=> $b } keys %seen;
print "$min_valn";

Answer 2

您可以使用哈希来计算每个数字的出现次数。最常见的数字可以找到频率等于频率的max，其中最小值可以通过min找到，min和max都来自List::Util。

#!/usr/bin/perl
use warnings;
use strict;
use List::Util qw(min max);
my @arr = (1, 2, 3, 4, 1, 3, 4, 1);
my %occurrences;
$occurrences{$_}++ for @arr;
my $max_freq = max(values %occurrences);
print min(grep $max_freq == $occurrences{$_}, keys %occurrences);

Answer 3

使用它将非常适合您

my @arr=(1, 2, 3, 4, 1, 3, 4, 1);
my %count;
foreach (@arr){
    $count{$_}++;
}
my ($min_by_value) = sort { $a <=> $b} keys %count;
my ($max_by_count) = sort { $count{$b} <=> $count{$a} } keys %count;
my $max =
    ($count{$min_by_value} >= $count{$max_by_count}) ? $min_by_value : $max_by_count;
print "minimum value max times = $maxn";