重複削除
ずいぶんとサボってしまいました。
重複する要素を取り除くです。
main = print $ onlyList [3, 1, 4, 1, 5, 9, 2, 6, 5] onlyList :: [Int] -> [Int] onlyList [] = [] onlyList (x:xs) = (if elem x xs then [] else [x]) ++ onlyList (filter (/= x) xs)
ずいぶんとサボってしまいました。
重複する要素を取り除くです。
main = print $ onlyList [3, 1, 4, 1, 5, 9, 2, 6, 5] onlyList :: [Int] -> [Int] onlyList [] = [] onlyList (x:xs) = (if elem x xs then [] else [x]) ++ onlyList (filter (/= x) xs)