RosettaCodeData/Task/Combinations/Mathematica/combinations-1.math

2 lines
93 B
Text
Raw Permalink Normal View History

2013-04-10 21:29:02 -07:00
combinations[n_Integer, m_Integer]/;m>= 0:=Union[Sort /@ Permutations[Range[0, n - 1], {m}]]