Muy buenas a todos, a ver si me podéis ayudar. Tengo un problema cuando quiero eliminar de una lista todos los elementos consecutivos que cumpla con la condición de que sea una mayúscula y otra minúscula y que me devuelva el resto de la lista. Ejemplo: Dada una secuencia: "aAbBaa" el resultado sea "aa" o este otro ejemplo "cCBb" el resultado sea "" Tengo esta implementación:
removerInversos :: secuencia -> secuencia
removerInversos [] = []
removerInversos (x:xs)
| isInverse x cabezaCola == True = cola
| otherwise = x: removerInversos cola
where
cabezaCola = head xs
cola = tail xs
La función isInverse
:
isInverse :: Operador -> Operador -> Bool
isInverse x y = (match x y) && ( ((isUpper x) && (isLower y))|| ((isLower x) && (isUpper y)) )
Función match
:
match :: Operador -> Operador -> Bool
match x y = (toUpper x) == (toUpper y)
ultimo
?¿Para qué compararisInverse x cabezaCola
conTrue
? Se me ocurren mejoras, pero no sé qué es lo que buscas. Te sugiero añadir el código deisInverse
para que esta pregunta sea de más utilidad a los interesados por ella.