Horner's rule for polynomial evaluation: Difference between revisions
Content added Content deleted
Drkameleon (talk | contribs) (Added Arturo implementation) |
(Emacs Lisp: Improve formatting, use cl-lib) |
||
Line 653: | Line 653: | ||
=={{header|Emacs Lisp}}== |
=={{header|Emacs Lisp}}== |
||
{{trans|Common Lisp}} |
{{trans|Common Lisp}} |
||
<lang |
<lang Lisp>(require 'cl-lib) |
||
(defun horner (coeffs x) |
(defun horner (coeffs x) |
||
(reduce #'(lambda (coef acc) (+ (* acc x) coef) |
(cl-reduce #'(lambda (coef acc) (+ (* acc x) coef)) |
||
coeffs :from-end t :initial-value 0) |
coeffs :from-end t :initial-value 0)) |
||
⚫ | |||
{{out}} |
|||
⚫ | |||
⚫ | |||
</lang> |
|||
<b>Output:</b> |
|||
<pre> |
|||
⚫ | |||
</pre> |
|||
=={{header|Erlang}}== |
=={{header|Erlang}}== |