（覚書）「nCrの中身」をリストで取得する

数値n, rを指定して、「nCrの中身」をリストで取得したい。

たとえば、n=5, r=4で、

{ {1,2,3,4}, {1,2,3,5}, {1,2,4,5}, {1,3,4,5}, {2,3,4,5} }

を取得する方法である。

数値オブジェクトn, rを作成のうえ、

Execute[{"usiList =" + (Sum[Join[{Sequence["Sequence[", α, 1, r], {"{"}, Sequence[If[β ≟ r, "e" + (β), "e" + (β) + ","], β, 1, r], {"}"}, Sequence[",e" + (γ) + ",1," + n + "]", γ, 1, r]}]]), "output = Element[CopyFreeObject[KeepIf[Length[ε] ≟ "+r+", ε, Zip[Unique[δ], δ, Unique[Sequence[Sort[Sequence[Element[Flatten[usiList], "+r+" (e - 1) + ζ], ζ, 1, "+r+"]], e, 1, Length[Flatten[usiList]] / "+r+"]]]]],1]", "Delete[usiList]"}]

を入力バーから実行すれば、目的のリストを、outputという名前で取得できる。

なお、nとrの値によっては、リストの要素数が膨大になる。要素数が大きいほど、処理が重くなるので、注意されたい。