SHOW:
|
|
- or go back to the newest paste.
| 1 | - | --promociono :: (Int, Int) -> Bool |
| 1 | + | {-
|
| 2 | - | --promociono (a, b) = ((a+b) > 14) && (a >=6) && (b >= 6) |
| 2 | + | Definir la función recuperoDeGusto que dado el par de pares que representa a un |
| 3 | alumno, devuelve True si el alumno, pudiendo promocionar con los parciales (o sea | |
| 4 | sin recup.), igual rindió al menos un recup. | |
| 5 | Vale definir funciones auxiliares. | |
| 6 | Hacer una definición que no use pattern matching, en las eventuales funciones | |
| 7 | auxiliares tampoco; o sea, manejarse siempre con fst y snd. | |
| 8 | -} | |
| 9 | ||
| 10 | promociono :: (Int, Int) -> Bool | |
| 11 | promociono (a, b) = ((a+b) > 14) && (a >=6) && (b >= 6) | |
| 12 | ||
| 13 | dioRecuperatios :: (Int, Int) -> Bool | |
| 14 | dioRecuperatios tupla = ((>0).fst) tupla || ((>0).snd) tupla | |
| 15 | ||
| 16 | recuperoDeGusto :: ((Int, Int),(Int, Int)) -> Bool | |
| 17 | recuperoDeGusto tupla = (dioRecuperatios.snd) tupla && (promociono.fst) tupla |
