Question

perl语言求能实现列表元素组合的函数

如果给出含若干元素的列表如:
@list1=(a,b,c,d);
希望能返回所有的元素任意组合:
如a,b,c,d,ab,ac,ad,bc,bd,cd,abc,abd,acd,bcd,abcd.

Answer 1

这是一个数学上的排列组合的问题，如果你不考虑排列的顺序的话，你可以使用组合函数，具体可以安装Math::Combinatorics模块，用里面的函数来实现。当然，你自己写循环也是比较容易实现的。