考えられるすべての要素の組み合わせを列挙する方法

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;