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