Las dimensiones de los rectángulos puede representarse por pares; por ejemplo, (5,3) representa a un rectángulo de base 5 y altura 3.
Definir la función
mayorRectangulo :: (Num a, Ord a) => (a,a) -> (a,a) -> (a,a)
tal que (mayorRectangulo r1 r2) es el rectángulo de mayor área entre r1 y r2. Por ejemplo,
mayorRectangulo (4,6) (3,7) == (4,6) mayorRectangulo (4,6) (3,8) == (4,6) mayorRectangulo (4,6) (3,9) == (3,9)
La disyunción excluyente de dos fórmulas se verifica si una es verdadera y la otra es falsa. Su tabla de verdad es
x | y | xor x y ------+-------+--------- True | True | False True | False | True False | True | True False | False | False
Definir la función
xor :: Bool -> Bool -> Bool
tal que (xor x y) es la disyunción excluyente de x e y. Por ejemplo,
xor True True == False xor True False == True xor False True == True xor False False == False
Definir la función
divisionSegura :: Double -> Double -> Double
tal que (divisionSegura x y) es x/y si y no es cero y 9999 en caso contrario. Por ejemplo,
divisionSegura 7 2 == 3.5 divisionSegura 7 0 == 9999.0
Definir la función
tresDiferentes :: Int -> Int -> Int -> Bool
tal que (tresDiferentes x y z) se verifica si los elementos x, y y z son distintos. Por ejemplo,
tresDiferentes 3 5 2 == True tresDiferentes 3 5 3 == False
Definir la función
tresIguales :: Int -> Int -> Int -> Bool
tal que (tresIguales x y z) se verifica si los elementos x, y y z son iguales. Por ejemplo,
tresIguales 4 4 4 == True tresIguales 4 3 4 == False
Definir la función
mediano :: Int -> Int -> Int -> Int
tal que (mediano x y z) es el número mediano de los tres números x, y y z. Por ejemplo,
mediano 3 2 5 == 3 mediano 2 4 5 == 4 mediano 2 6 5 == 5 mediano 2 6 6 == 6
Definir la función
extremos :: Int -> [a] -> [a]
tal que (extremos n xs) es la lista formada por los n primeros elementos de xs y los n finales elementos de xs. Por ejemplo,
extremos 3 [2,6,7,1,2,4,5,8,9,2,3] == [2,6,7,9,2,3]
Definir la función
segmento :: Int -> Int -> [a] -> [a]
tal que (segmento m n xs) es la lista de los elementos de xs comprendidos entre las posiciones m y n. Por ejemplo,
segmento 3 4 [3,4,1,2,7,9,0] == [1,2] segmento 3 5 [3,4,1,2,7,9,0] == [1,2,7] segmento 5 3 [3,4,1,2,7,9,0] == []
Definir la función
finales :: Int -> [a] -> [a]
tal que (finales n xs) es la lista formada por los n finales elementos de xs. Por ejemplo,
finales 3 [2,5,4,7,9,6] == [7,9,6]
Definir la función
interior :: [a] -> [a]
tal que (interior xs) es la lista obtenida eliminando los extremos de la lista xs. Por ejemplo,
interior [2,5,3,7,3] == [5,3,7] interior [2..7] == [3,4,5,6]