练习3.1

#lang racket(define (make-accumulator init-value)  (define total init-value)  (lambda (amount)    (begin (set! total (+ total amount))           total)))(define A (make-accumulator 5))(A 10) ;; 15(A 10) ;; 25