Código: Seleccionar todo
sReplace [] _ _ = []
sReplace sText nText final = if take (length nText) sText == nText
then final ++ (sReplace (drop (length nText) sText) nText final)
else [head sText] ++ (sReplace (tail sText) nText final)
input -> sReplace "soy un chico muy listo" "listo" "tonto"
output -> Soy un chico muy tonto