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