Anonymous user
Horner's rule for polynomial evaluation: Difference between revisions
Horner's rule for polynomial evaluation (view source)
Revision as of 21:06, 15 April 2020
, 4 years agono edit summary
SqrtNegInf (talk | contribs) m (→{{header|Raku}}: Fix link and comments: Perl 6 --> Raku) |
No edit summary |
||
Line 908:
128.0
</pre>
=={{header|Lambdatalk}}==
<lang scheme>
{def horner
{def horner.r
{lambda {:p :x :r}
{if {A.empty? :p}
then :r
else {horner.r {A.rest :p} :x {+ {A.first :p} {* :x :r}}}}}}
{lambda {:p :x}
{horner.r {A.reverse :p} :x 0}}}
{horner {A.new -19 7 -4 6} 3}
-> 128
</lang>
=={{header|Liberty BASIC}}==
| |||