如何枚举元素的所有可能组合

Question

我想枚举元素数组的所有可能的组合。例如：我有数组：

$r = ('a1','a2','a3' ...). 

我想打印元件阵列的所有组合： A1A2，a1a3，A1A2A3等。 其中 A1A2 = a2a1，A1A2A3 = a1a3a2 ...

Answer 1

事实证明，有a module为：！

use Math::Combinatorics; 

@r = qw(a1 a2 a3 ...); 
#@all_combinations_of_r = map { combine($_,@r) } 1..@r; 
@all_permutations_of_r = map { permute(@$_) } map { combine($_,@r) } 1..@r;