生成组合

Question

每次我必须这样做时，我“发明”了一种不同的方式。时间标准化。我怀疑有一些默认命令我忽略了这一点，所以如果问题太微不足道，我很抱歉。

什么是更好的（内存，性能）的方式来获得：

combinations[{1,2,3},2] = {{1,2},{1,3},{2,3}} 

与输入列表中的任意元素，当然。

Answer 1

Subsets[{1, 2, 3}, {2}] 

是内置的方式。

Answer 2

在添加Subsets作为核心功能之前，Combinatorica功能KSubsets可用。

Needs["Combinatorica`"] 

KSubsets[{1, 2, 3}, 2] 

(* {{1, 2}, {1, 3}, {2, 3}} *) 

Combinatorica还提供了额外的功能，如NextKSubset：

NextKSubset[{1, 2, 3}, {1, 3}] 

(* {2, 3} *) 

这最后一个功能可以为内存管理非常有帮助。