ejercicio haskell

{-
Definir la función recuperoDeGusto que dado el par de pares que representa a un
alumno, devuelve True si el alumno, pudiendo promocionar con los parciales (o sea
sin recup.), igual rindió al menos un recup.
Vale definir funciones auxiliares.
Hacer una definición que no use pattern matching, en las eventuales funciones
auxiliares tampoco; o sea, manejarse siempre con fst y snd.
-}

promociono :: (Int, Int) -> Bool
promociono (a, b) = ((a+b) > 14) && (a >=6) && (b >= 6)

dioRecuperatios :: (Int, Int) -> Bool
dioRecuperatios tupla = ((>0).fst) tupla || ((>0).snd) tupla

recuperoDeGusto :: ((Int, Int),(Int, Int)) -> Bool
recuperoDeGusto tupla = (dioRecuperatios.snd) tupla && (promociono.fst) tupla