We use cookies to ensure you have the best browsing experience on our website. Please read our cookie policy for more information about how we use cookies.
  1. Prepare
  2. Functional Programming
  3. Ad Hoc
  4. Remove Duplicates
  5. Discussions

Remove Duplicates

  • abraham_alcaina
     + 5 comments

    Haskell

    Do you have a better solution? I not 100% satisfied

    removeDuplicates:: String -> String -> String
removeDuplicates [] n = reverse n
removeDuplicates (x:xs) result = removeDuplicates xs result'
  where result' = if x `elem` result then result else x:result

main :: IO ()
main = do
  str <- getLine
  putStrLn $ removeDuplicates str ""`