6 lines
176 B
Plaintext
6 lines
176 B
Plaintext
|
(define (horner-eval x coefficient-sequence)
|
||
|
|
(accumulate (lambda (this-coeff higher-terms)
|
||
|
|
(+ (* higher-terms x) this-coeff))
|
||
|
|
0
|
||
|
|
coefficient-sequence))
|