問題3.1

(define (make-accumulator base)
  (let ((acc base))
    (lambda (addr)
      (begin (set! acc (+ addr acc))
             acc))))