perl - 对于多个数组

Question

在 Scheme 中，您可以使用 for-each 遍历多个列表:

> (for-each (lambda (a b) (display (+ a b)) (newline)) '(10 20 30) '(1 2 3))
11
22
33
> 

我知道在 Perl 中你可以使用 for遍历单个列表。像 Scheme 示例中那样迭代多个列表的好方法是什么？

我对 Perl 5 或 6 的答案很感兴趣。

Answer 1

在 Perl 6 中，Zip 运算符是最好的选择。如果您想获得两个值(而不是直接计算总和)，则可以不使用加号使用它:

for (10, 11, 12) Z (1, 2, 3) -> $a, $b {
    say "$a and $b";
}