Eliminación de espacios extremos
Definir la función
1 |
sinEspaciosExtremos :: String -> String |
tal que (sinEspaciosExtremos cs) es la cadena obtenida eliminando los espacios blancos de los extremos de la cadena cs. Por ejemplo,
1 2 |
λ> sinEspaciosExtremos " El lunes a las 12:30. " "El lunes a las 12:30." |
Soluciones
1 2 3 4 5 |
import Data.Char (isSpace) sinEspaciosExtremos :: String -> String sinEspaciosExtremos = f . f where f = reverse . dropWhile isSpace |
13 Comentarios