RosettaCodeData/Task/Remove-duplicate-elements/Haskell/remove-duplicate-elements-4.hs

import Data.List

unique :: Eq a => [a] -> [a]
unique []       = []
unique (x : xs) = x : unique (filter (x /=) xs)