Anonymous user
Horner's rule for polynomial evaluation: Difference between revisions
Horner's rule for polynomial evaluation (view source)
Revision as of 18:59, 4 February 2012
, 12 years agoadding maxima
(Add a Mercury version of the Horner's rule task.) |
(adding maxima) |
||
Line 600:
128</lang>
=={{header|Maxima}}==
<lang maxima>horner(p, x) := block([n, y, i],
n: length(p),
y: p[n],
for i: n - 1 step -1 thru 1 do y: y*x + p[i],
y
)$
horner([-19, 7, -4, 6], 3);
/* 128 */</lang>
=={{header|Mercury}}==
| |||