sicp习题试解 (2.34)

; ======================================================================

;

; Structure and Interpretation of Computer Programs

; (trial answer to excercises)

;

; 计算机程序的构造和解释(习题试解)

;

; created: code17 08/19/05

; modified:

; (保持内容完整不变前提下，可以任意转载)

; ======================================================================

;; SICP No.2.34

(define (horner-eval x coefficient-sequence)

(accumulate (lambda (this-coeff higher-terms) (+ (* higher-terms x)

this-coeff))

0

coefficient-sequence))

;; Test-it:

;; Welcome to MzScheme version 209, Copyright (c) 2004 PLT Scheme, Inc.

;; > (horner-eval 2 (list 1 3 0 5 0 1))

;; 79