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

发布时间：2020-12-15 23:30:30 所属栏目：大数据来源：网络整理

导读：给定x个数组,每个数组可能有不同数量的元素,如何迭代所有组合,我从每个数组中选择一个项目？例： [ ] [ ] [ ] foo cat 1 bar dog 2 baz 3 4 返回 [foo] [cat] [ 1 ][foo] [cat] [ 2 ] ...[baz] [dog] [ 4 ] 我在Perl中这样做,顺便说一下. 解决方法我的 Set

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

例：

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

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

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

解决方法

我的 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->@*;
    }

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!