RosettaCodeData/Task/Remove-duplicate-elements/Mathematica/remove-duplicate-elements-3...

3 lines
98 B
Plaintext

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