Eliminación de espacios extremos

José A. Alonso

Definir la función

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."

import Data.Char (isSpace)

sinEspaciosExtremos :: String -> String
sinEspaciosExtremos = f . f
    where f = reverse . dropWhile isSpace