-- === evaluate ===

evaluate :: [Double] -> Double -> Double
evaluate x y = auxpoly (invert x) y 0
evaluate :: [Double] -> Double -> Double
evaluate x y = auxpoly (invert x) y 0
evaluate x y = auxpoly (invert x) y 0