Rosetta Code

Horner's rule for polynomial evaluation: Difference between revisions

Page Discussion

Horner's rule for polynomial evaluation (view source)

Revision as of 09:33, 8 May 2018

66 bytes removed ,  6 years ago
→‎{{header|Aime}}
Line 80:
horner(list coeffs, real x)
{
integerreal ic, z;
real z;
 
z = 0;
 
ifor = l_length(, c of coeffs); {
while (i) { z *= x;
i - z += 1c;
z *= x;
z += l_q_real(coeffs, i);
}
 
return z;
}
 
 
integer
main(void)
{
o_plan(horner(l_effectlist(-19r, 7.0, -real(4)4r, 6r), 3), "\n");
 
return 0;
}</lang>
 
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/144404"