perl - 排序是否有助于 Perl 中 grep 的效率

Question

我正在寻找有关 Perl 的 grep 函数如何工作的一些细节。我正在这样做:

if ( grep{ $foo == $_ } @bar ) {
  some code;
}

假设@bar很大(数十万个元素)。根据我的数据，如果我对 @bar 进行排序，则 $foo 的值更有可能出现在数组开头附近而不是末尾附近。我想知道这是否有助于提高性能。

换句话来说，对于上面的代码，grep 是否按顺序移动通过 @bar 检查是否 $foo == $_ 然后立即一旦发现任何值是真的就退出吗？或者它会在返回值之前检查 @bar 的每个元素吗？

Answer 1

grep 不会短路，因此元素的顺序并不重要。

虽然 List::MoreUtils 的 first 会短路，但在调用之前必须将整个列表放入堆栈中。

这将是最好的:

for (@bar) {
   if ($foo == $_) {
      some code;
      last;
   }
}

更新:我最初迭代索引，因为它使用 O(1) 内存，但 for (@bar) 也是如此(与 for 相反) (LIST) 一般来说)正如 ysth 提醒我的那样。