subsets的算法是怎么样的

desert007

我想用fortran实现mathematica里subset[list, {k}]的功能。就是算出所有包含k个元素的子数列。有谁知道怎么处理吗？ 先谢过了

chyanog

1. subsets[ls_, 0] := {{}};
   
2. subsets[{}, k_] := {};
   
3. subsets[{x_, xs___}, k_] :=
   
4.   Table[{x}~Join~i, {i, subsets[{xs}, k - 1]}]~Join~subsets[{xs}, k];
   
5. 
   
6. subsets[Range[5], 3] == Subsets[Range[5], {3}]
   
7. 
   
8. Sort@Fold[#~Join~Table[i~Join~{#2}, {i, #}] &, {{}}, Range[5]] ==
   
9. Subsets[Range[5]]

复制代码