Definir la función
palindromo :: Eq a => [a] -> Bool
tal que (palindromo xs) se verifica si xs es un palíndromo; es decir, es lo mismo leer xs de izquierda a derecha que de derecha a izquierda. Por ejemplo,
palindromo [3,2,5,2,3] == True palindromo [3,2,5,6,2,3] == False
Definir la función
rango :: [Int] -> [Int]
tal que (rango xs) es la lista formada por el menor y mayor elemento de xs. Por ejemplo,
rango [3,2,7,5] == [2,7]
Definir la función
rota :: Int -> [a] -> [a]
tal que (rota n xs) es la lista obtenida poniendo los n primeros elementos de xs al final de la lista. Por ejemplo,
rota 1 [3,2,5,7] == [2,5,7,3] rota 2 [3,2,5,7] == [5,7,3,2] rota 3 [3,2,5,7] == [7,3,2,5]
Definir la función
rota1 :: [a] -> [a]
tal que (rota1 xs) es la lista obtenida poniendo el primer elemento de xs al final de la lista. Por ejemplo,
rota1 [3,2,5,7] == [2,5,7,3]
Definir la función
maxTres :: Int -> Int -> Int -> Int
tal que (maxTres x y z) es el máximo de x, y y z. Por ejemplo,
maxTres 6 2 4 == 6 maxTres 6 7 4 == 7 maxTres 6 7 9 == 9
Definir la función
ultimoDigito :: Int -> Int
tal que (ultimoDigito x) es el último dígito del número x. Por ejemplo,
ultimoDigito 325 == 5
Definir la función
areaDeCoronaCircular :: Double -> Double -> Double
tal que (areaDeCoronaCircular r1 r2) es el área de una corona circular de radio interior r1 y radio exterior r2. Por ejemplo,
areaDeCoronaCircular 1 2 == 9.42477796076938 areaDeCoronaCircular 2 5 == 65.97344572538566 areaDeCoronaCircular 3 5 == 50.26548245743669
Definir la función
volumenEsfera :: Double -> Double
tal que (volumenEsfera r) es el volumen de la esfera de radio r. Por ejemplo,
volumenEsfera 10 == 4188.790204786391
Definir la función
sumaSiTodosJustos :: (Num a, Eq a) => [Maybe a] -> Maybe a
tal que (sumaSiTodosJustos xs) es justo la suma de todos los elementos de xs si todos son justos (es decir, si Nothing no pertenece a xs) y Nothing en caso contrario. Por ejemplo,
sumaSiTodosJustos [Just 2, Just 5] == Just 7 sumaSiTodosJustos [Just 2, Just 5, Nothing] == Nothing
Definir la función
media3 :: Float -> Float -> Float -> Float
tal que (media3 x y z) es la media aritmética de los números x, y y z. Por ejemplo,
media3 1 3 8 == 4.0 media3 (-1) 0 7 == 2.0 media3 (-3) 0 3 == 0.0