Parte par de un polinomio
La parte par de un polinomio de coeficientes enteros es el polinomio formado por sus monomios cuyos coeficientes son números pares. Por ejemplo, la parte par de 4x^3+x^2-7x+6 es 4x^3+6.
Definir la función
|
1 |
partePar :: Integral a => Polinomio a -> Polinomio a |
tal que (partePar p) es la parte par de p. Por ejemplo,
|
1 2 |
ghci> partePar (consPol 3 4 (consPol 2 1 (consPol 0 6 polCero))) 4*x^3 + 6 |
Nota: Este ejercicio debe realizarse usando únicamente las funciones de la librería I1M.Pol que se encuentra aquí y se describe aquí.
Soluciones
|
1 2 3 4 5 6 7 8 |
partePar :: Integral a => Polinomio a -> Polinomio a partePar p | esPolCero p = polCero | even b = consPol n b (partePar r) | otherwise = partePar r where n = grado p b = coefLider p r = restoPol p |
Un comentario