Eliminación de espacios extremos
Definir la función
tal que (sinEspaciosExtremos cs) es la cadena obtenida eliminando los espacios blancos de los extremos de la cadena cs. Por ejemplo,
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." |
|
1 2 3 4 5 |
import Data.Char (isSpace) sinEspaciosExtremos :: String -> String sinEspaciosExtremos = f . f where f = reverse . dropWhile isSpace |