Как заменить букву в строке на Haskell

Question

Мне нужно сделать функцию Haskell, называемую markDups, которая обрабатывает строку, заменяя все повторяющиеся вхождения символа символом подчеркивания «_».

вот мой код, который я сделал до сих пор.

makeBar :: Char -> [Char] -> [Char] 
makeBar c (x:xs) | c == x = '_':makeBar c xs --turn into a "_" 
        | otherwise = x:makeBar c xs--ignore and move on 

, когда я запускаю это, вот мой выход с сообщением об ошибке

выход должен быть, как этот

что я должен делать?

Answer 1

Это похоже на работу:

import Data.Set 
main = putStrLn (markDups "hello world" empty) 


markDups :: [Char] -> Set Char -> [Char] 
markDups [] set = [] 
markDups (x:rest) set 
| member x set = '_':(markDups rest set) 
| otherwise = x:(markDups rest (insert x set))