Jump to content

Horner's rule for polynomial evaluation: Difference between revisions

Line 528:
=={{header|Prolog}}==
Tested with SWI-Prolog. Works with other dialects.
<lang Prolog>horner_rulehorner([], _X, 0).
 
horner_rulehorner([H|T], X, V) :-
horner_rulehorner(T, X, V1),
V is V1 * X + H.
</lang>
Output :
<lang Prolog> ?- horner_rulehorner([-19, 7, -4, 6], 3, V).
V = 128.</lang>
 
Anonymous user
Cookies help us deliver our services. By using our services, you agree to our use of cookies.