Horner's rule for polynomial evaluation: Difference between revisions
Content added Content deleted
(Erlang) |
|||
Line 110: | Line 110: | ||
writefln("%s", poly.horner(3.0)) ; |
writefln("%s", poly.horner(3.0)) ; |
||
} |
} |
||
</lang> |
|||
=={{header|Erlang}}== |
|||
<lang erlang> |
|||
horner(L,X) -> |
|||
lists:foldl(fun(C, Acc) -> X*Acc+C end, lists:reverse(L)). |
|||
t() -> |
|||
horner([-19,7,-4,6], 3). |
|||
</lang> |
</lang> |
||
=={{header|F Sharp|F#}}== |
=={{header|F Sharp|F#}}== |
||
Line 118: | Line 125: | ||
horner [-19;7;-4;6] 3 |
horner [-19;7;-4;6] 3 |
||
</lang> |
</lang> |
||
=={{header|Factor}}== |
=={{header|Factor}}== |
||
<lang factor>: horner ( coeff x -- res ) |
<lang factor>: horner ( coeff x -- res ) |