Voilà ce que j'aurais écrit pour replace :



replace :: String -> String -> String -> String
replace [] _ _ = []
replace s [] substitute = intercalate substitute (map (\x -> [x]) s)...