Horner's rule for polynomial evaluation: Difference between revisions
Content deleted Content added
Erlang |
|||
Line 110:
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>
=={{header|F Sharp|F#}}==
Line 118 ⟶ 125:
horner [-19;7;-4;6] 3
</lang>
=={{header|Factor}}==
<lang factor>: horner ( coeff x -- res )
| |||