src/sicp/ex2_34.rkt

   1 #lang racket
   2
   3 (require "utils.rkt")
   4
   5 (define (horner-eval x coefficient-sequence)
   6   (accumulate (lambda (this-coeff higher-terms) (+ (* x this-coeff) higher-terms))
   7               0
   8               coefficient-sequence))
   9
  10 (horner-eval 2 '(1 3 0 5 0 1))