生成組合

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} *) 

這最後一個功能可以爲內存管理非常有幫助。