Anonymous user
Horner's rule for polynomial evaluation: Difference between revisions
Horner's rule for polynomial evaluation (view source)
Revision as of 01:33, 27 March 2014
, 10 years ago→{{header|Maple}}
m (→{{header|Perl 6}}: minor simplification) |
|||
Line 651:
coefficients = { -19, 7, -4, 6 }
print( horners_rule( coefficients, x ) )</lang>
=={{header|Maple}}==
<lang Maple>
applyhorner:=(L::list,x)->foldl((s,t)->s*x+t,op(ListTools:-Reverse(L))):
applyhorner([-19,7,-4,6],x);
applyhorner([-19,7,-4,6],3);
</lang>
Output:
<pre>
((6 x - 4) x + 7) x - 19
128
</pre>
=={{header|Mathematica}}==
| |||