sReplace - Haskell

Iniciado por Sanko, Febrero 26, 2014, 02:28:07 PM

Tema anterior - Siguiente tema

0 Miembros y 1 Visitante están viendo este tema.

Febrero 26, 2014, 02:28:07 PM Ultima modificación: Mayo 01, 2014, 09:17:40 AM por Expermicid
Código: haskell
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)


ejemplo input y output:
input -> sReplace "soy un chico muy listo" "listo" "tonto"
output -> Soy un chico muy tonto
Sigueme en Twitter : @Sankosk
Estos nuevos staff no tienen puta idea XD