Searched refs:rmdup (Results 1 – 1 of 1) sorted by relevance
193 utSetFromList x = (MkSet . rmdup . sort) x194 where rmdup [] = [] function195 rmdup [x] = [x] function196 rmdup (x:y:xs) | x==y = rmdup (y:xs) function197 | otherwise = x: rmdup (y:xs)