perl - 在 Perl 5 中是否有一个优雅的 zip 来交错两个列表？

Question

我最近在 Perl 5 中“需要”一个 zip 函数(当我在考虑 How do I calculate relative time? 时)，即一个函数，它将两个列表“压缩”到一个列表中，交错元素。

(伪)示例:

@a=(1, 2, 3);
@b=('apple', 'orange', 'grape');
zip @a, @b; # (1, 'apple', 2, 'orange', 3, 'grape');

Haskell has zip in the Prelude和 Perl 6 has a zip operator内置，但你如何在 Perl 5 中以优雅的方式做到这一点？

Answer 1

假设您正好有两个列表并且它们的长度完全相同，这里是 merlyn (Randal Schwartz) 最初提出的一个解决方案，他称它为 perversely perlish:

sub zip2 {
    my $p = @_ / 2; 
    return @_[ map { $_, $_ + $p } 0 .. $p - 1 ];
}

这里发生的事情是，对于一个 10 元素的列表，首先，我们在中间找到轴心点，在本例中为 5，并将其保存在 $p 中。然后我们制作一个索引列表，在这种情况下是 0 1 2 3 4。接下来我们使用 map 将每个索引与另一个索引配对，该索引与第一个索引从开始的距离相同，给我们(在这种情况下)0 5 1 6 2 7 3 8 4 9。然后我们从 @_ 中取出一个切片作为索引列表。这意味着如果将 'a', 'b', 'c', 1, 2, 3 传递给 zip2 ，它将返回重新排列为 'a', 1, 'b', 2, 'c', 3 的列表。

这可以沿着 ysth 的行写在单个表达式中，如下所示:

sub zip2 { @_[map { $_, $_ + @_/2 } 0..(@_/2 - 1)] }

你是否想使用任何一种变化取决于你是否能看到自己记住它们是如何工作的，但对我来说，这是一种思维扩展。