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 |