• + 0 comments

    I used

    filt :: [Char] -> [Char]
    filt ""     = []
    filt (x:xs) = x : (filt $ filter (/= x) xs)
    

    or

    filt s = foldl (\acc x -> acc ++ (if x `elem` acc then "" else [x])) "" s