1 665c255d 2023-08-04 jrmu (defun horner-eval (x coeffs)
2 665c255d 2023-08-04 jrmu   (accumulate
3 665c255d 2023-08-04 jrmu    (lambda (this-coeff higher-terms)
4 665c255d 2023-08-04 jrmu      (+ (* x higher-terms) this-coeff))
5 665c255d 2023-08-04 jrmu    0
6 665c255d 2023-08-04 jrmu    coeffs))