2011-11-09 問題3.1 SICP (define (make-accumulator base) (let ((acc base)) (lambda (addr) (begin (set! acc (+ addr acc)) acc))))