RosettaCodeData/Task/Remove-duplicate-elements/Mathematica/remove-duplicate-elements-3.math
Ingy döt Net b83f433714 tasks a-s
2013-04-10 23:57:08 -07:00

2 lines
98 B
Text

NoDupes[input_List] := Split[Sort[input]][[All, 1]]
NoDupes[{0, 2, 1, 4, 2, 0, 3, 1, 1, 1, 0, 3}]