在Perl中,我如何迭代多个集合的笛卡尔积？

Question

给定x数组的数量,每个数组可能有不同数量的元素,如何迭代所有组合,我从每个数组中选择一个项目？

例:

[   ]   [   ]   [   ]
 foo     cat      1
 bar     dog      2
 baz              3
                  4

返回

[foo]   [cat]   [ 1 ]
[foo]   [cat]   [ 2 ]
  ...
[baz]   [dog]   [ 4 ]

我在Perl中这样做,顺便说一下.

Answer 1

我的Set :: CrossProduct模块完全符合您的要求.请注意,您并不是在寻找排列,这是排列中元素的排序.您正在寻找交叉产品,它是来自不同集合的元素的组合.

我的模块为您提供了一个迭代器,因此您不会在内存中创建它.只有在需要时才创建新元组.

use Set::Crossproduct;

my $iterator = Set::CrossProduct->new(
    [
        [qw( foo bar baz )],
        [qw( cat dog     )],
        [qw( 1 2 3 4     )],
    ]
    );

while( my $tuple = $iterator->get ) {
    say join ' ', $tuple->@*;
    }