(define (make-accumulator num)
(lambda (amount)
(begin (set! num (+ num amount))
num)))
(define A (make-accumulator 5))
(A 10)
(A 10)
运行结果
15
25
(define (make-accumulator num)
(lambda (amount)
(begin (set! num (+ num amount))
num)))
(define A (make-accumulator 5))
(A 10)
(A 10)
运行结果
15
25