読者です 読者をやめる 読者になる 読者になる

(wat-aro)

無職から有職者にランクアップしました

SICP 問題 2.34

scheme SICP
(define (accumulate op initial sequence)
  (if (null? sequence)
      initial
      (op (car sequence)
          (accumulate op initial (cdr sequence)))))

(define (horner-eval x coefficient-sequence)
  (define (iter lis res)
    (cond ((null? lis) res)
          (else (iter (cdr lis) (+ (car lis) (* x res))))))
  (iter (reverse coefficient-sequence) 0))
gosh> (horner-eval 2 (list 1 3 0 5 0 1))
79