对于返回数组的两个最大值，具有低计算复杂度的单行代码是什么？

问题描述

| 这比“我真的需要”这个问题更像是“我是否有可能”这个问题，但是无论如何：我知道我是否想要使用自定义函数比较来获取列表中的最小值，我可以轻松地用

List::Util::reduce

做到。

my $biggest = reduce {comparison($a,$b) ? $b:$a} @myArray;

但是，如果我想要该数组中的两个最大值？同样，仅遍历数组一次。 我可以通过编写

for

循环来做到这一点，但我真的很想要一个更完美的单线。 编辑：通过数组的一次遍历，我的意思是计算复杂度不会大于

O(n)

。对所有文章进行排序并不是那么有效，因为我不需要对所有内容进行排序，而仅是两个最大的价值。 但是我可能要问的太多了:)     

解决方法

要查找列表中的两个最大值，您可以使用两个变量在两个值之间循环以保存最大值：

my @list = qw(3 1 2 5 9 7 8 6 4);

my ($x,$y) = (0,0);

($x,$y) = $_ > $x ? ($_,$x) :
           $_ > $y ? ($x,$_) : next for @list;

say \"$x $y\";  # \'9 8\'

或者您可以使用折叠来减少列表：

use List::Util \'reduce\';

my $max = reduce {
    $b > $$a[0] ? [$b,$$a[0]] : 
    $b > $$a[1] ? [$$a[0],$b] : $a
} [0,0],@list;

say \"@$max\"; # \'9 8\'

这两种解决方案是等效的，第一种是程序性的，需要外部状态，第二种是功能性的，不需要。第一个可能会更快，因为它不会创建任何用于存储的内部阵列。每个仅循环一次列表，因此均为

O(n)

    ,总是有

(sort { compare($b,$a) } @array)[0 .. 1]

-只要您确保不要尝试取出超过ѭ8exist中存在的项目，它就可以满足您想要的任何数量的输出。缺点是，它在对整个数组进行排序时比实际要做的工作更多。 您也可以扩展

reduce

解决方案以保持到目前为止看到的任何数量的最大值，但是我还无法编写仍然具有“单线”感觉的版本：）     ,

my @biggest_two = ( sort { $b <=> $a } @myArray )[0..1]

    ,我已经考虑了一段时间了。我认为从逻辑上讲，我们可以证明对于一般的比较函数

comparison($a,$b)

不可能做到这一点。 在测试某个简单比较函数时，例如说

>

可以使用传递属性，如果if13ѭ和

b > c

然后

a > c

，则可以一次通过级联搜索最大值。如果要使用它来找到两个最大值，您也可以这样做，但是已经增加了复杂性。要测试的数字可能大于两个，或者可能仅大于一个且小于另一个，或者可能小于两个。如这个简单的脚本所示，这仍然可以解决。

#!/usr/bin/perl

use strict;
use warnings;

use List::Util \'shuffle\';

my @array = shuffle (1..10);
my @out = (0,0); #(max,second)

map { $_>$out[0] ? ( unshift @out,$_ and pop @out) : $_>$out[1] ? $out[1] = $_ : () } @array;

print \"$_\\n\" for @out;

对于真正的通用比较，必须考虑被比较的两个值的组合很重要的可能性，在这种情况下，必须采用每对组合。实际上，这是在上面隐式完成的，但是跳过了大多数测试，因为通过传递性属性，我们知道这样做是安全的。 所以你有它。如果您的测试具有传递关系，则可以执行与上述相同的操作。如果不是，则必须做

sort

。 Perl的家伙花了很多时间来加快速度，所以也许还不错。