RosettaCodeData/Task/Combinations/Mathematica/combinations.math
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

1 line
93 B
Text

combinations[n_Integer, m_Integer]/;m>= 0:=Union[Sort /@ Permutations[Range[0, n - 1], {m}]]