Anonymous user
Horner's rule for polynomial evaluation: Difference between revisions
Horner's rule for polynomial evaluation (view source)
Revision as of 16:01, 12 May 2010
, 14 years agoAdded PicoLisp
(Added PicoLisp) |
|||
Line 204:
in
{Show {Horner [~19 7 ~4 6] 3}}</lang>
=={{header|PicoLisp}}==
<lang PicoLisp>(de horner (Coeffs X)
(let Res 0
(for C (reverse Coeffs)
(setq Res (+ C (* X Res))) ) ) )</lang>
<lang PicoLisp>: (horner (-19.0 7.0 -4.0 6.0) 3.0)
-> 128</lang>
=={{header|PL/I}}==
| |||