Evaluate(coeff, n, x) value <- 0; for i<- 0 to n do value <- value + coeff[i] * xi return value
Horner(coeff, n, x) value <- coeff[n] for i <- n-1 to 0 do value <- value * x + coeff[i] return value