Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- evaluar :: Polinomio → Integer → Integer
- evaluar p x
- | grado p == 0 = coeficiente p 0
- | otherwise = coeficiente p 0 + evaluarGrado p x (grado p)
- evaluarGrado :: Polinomio -> Integer -> Integer -> Integer
- evaluarGrado p x 1 = (coeficiente p 1) * x
- evaluarGrado p x g = (coeficiente p 1) * (x^g) + evaluarGrado p x (g-1)
Add Comment
Please, Sign In to add comment
