Horner's rule for polynomial evaluation: Difference between revisions

(→‎{{header|Perl 6}}: Added Perl 6 solution)
Line 180:
<lang erlang>
horner(L,X) ->
lists:foldl(fun(C, Acc) -> X*Acc+C end,0, lists:reverse(L)).
t() ->
horner([-19,7,-4,6], 3).
</lang>
 
=={{header|F Sharp|F#}}==
<lang fsharp>
Anonymous user