リストから重複を削除
--リストから重複削除 uniqList :: [Integer] -> [Integer] uniqList [] = [] uniqList (x:xs) = (if x `elem` xs then [] else [x]) ++ (uniqList xs) --多相型に uniqList :: Eq a => [a] -> [a] uniqList [] = [] uniqList (x:xs) = (if x `elem` xs then [] else [x]) ++ (uniqList xs)
[2009-07-15追記]
nub関数がありました。
import List main = do print $ nub [1,2,3,4,2,3,3,4,4,44] -- [1,2,3,4,44] print $ nub "hogehogehoge" -- "hoge"