第三章习题 3.1 - 3.20 的解答。

E-3.1:

(define (make-accumulator value)
  (define sum value)

  (lambda (x)
    (set! sum (+ sum x))
    sum))

; ---------------------------------------------

(define A (make-accumulator 5))

(A 10)
</pre>

E-3.2:

<pre lang='scheme' line='1' src='3.2.scm'>
(define (make-momitored f)
  (define sum 0)

  

…

阅读全文…