如何解决对于返回数组的两个最大值,具有低计算复杂度的单行代码是什么?
| 这比“我真的需要”这个问题更像是“我是否有可能”这个问题,但是无论如何:我知道我是否想要使用自定义函数比较来获取列表中的最小值,我可以轻松地用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的家伙花了很多时间来加快速度,所以也许还不错。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。