perl - 哈希的所有可能组合

Question

告诉我如何获取哈希的每种可能组合

这是一个示例

my %data = (
'a' => [qw(a1 a2 a3)],
'b' => [qw(b1 b2 b3)],
'c' => [qw(c1 c2 c3)]);

获取

a1
a2
a3
b1
b2
b3
c1
c2
c3

a1 b1
a1 b2
a1 b3
a1 c1
a1 c2
a1 c3

b1 c1
b1 c2
b1 c3
b2 c1
b2 c2
b2 c3
b3 c1
b3 c2
b3 c3

a1 b1 c1
a1 b1 c2
a1 b1 c3
a1 b2 c1
a1 b2 c2
a1 b2 c3
a1 b3 c1
a1 b3 c2
a1 b3 c3
a2 b1 c1
a2 b1 c2
a2 b1 c3
a2 b2 c1
a2 b2 c2
a2 b2 c3
a2 b3 c1
a2 b3 c2
a2 b3 c3
a3 b1 c1
a3 b1 c2
a3 b1 c3
a3 b2 c1
a3 b2 c2
a3 b2 c3
a3 b3 c1
a3 b3 c2
a3 b3 c3

谢谢

Answer 1

使用 brian d foy 的 Set::CrossProduct 模块。您需要以明显的方式将哈希值整理为数组数组。

use Set::CrossProduct;
my $iterator = Set::CrossProduct->new( ARRAY_OF_ARRAYS );
my $tuples = $iterator->combinations;

Answer 2

我的模块 List::Gen 包含一个 cartesian 函数可以产生你想要的结果。这段代码似乎可以解决问题，但您的示例并不包含这将产生的所有排列，我假设这只是示例中的一个遗漏。

use List::Gen 'cartesian';

my %data = (
    'a' => [qw(a1 a2 a3)],
    'b' => [qw(b1 b2 b3)],
    'c' => [qw(c1 c2 c3)],
);

my $product = cartesian {join ' ' => sort grep defined, @_}
              map {[@$_, undef]} 
              values %data;

say for sort {length $a <=> length $b or $a cmp $b} @$product;

这有点密集，所以解释一下：

• values %data 返回 %data 中的数组
• map {[@$_, undef]}然后在每个末尾附加一个空值，因为您需要部分组合
• cartesian {join ' ' =>; sort grep Defined，@_} 然后完成主要工作，计算数组的笛卡尔积，同时减去未定义的元素，并对值进行排序，如示例所示。
• sort {长度$a <=>; length $b 或 $a cmp $b} @$product 然后按指定的顺序打印出产品。