Actualización de «Selección hasta el primero que falla inclusive»
He actualizado las soluciones del ejercicio Selección hasta el primero que falla inclusive cuyo enunciado es
Definir la función
seleccionConFallo :: (a -> Bool) -> [a] -> [a]
tal que (seleccionConFallo p xs) es la lista de los elementos de xs que cumplen el predicado p hasta el primero que no lo cumple inclusive. Por ejemplo,
seleccionConFallo (<5) [3,2,5,7,1,0] == [3,2,5] seleccionConFallo odd [1..4] == [1,2] seleccionConFallo odd [1,3,5] == [1,3,5] seleccionConFallo (<5) [10..20] == [10]