*)(define (make-adder n)(lambda (x) (+ x n)))(define 3+ (make-adder 3))1(define n 7)> (3+ n))(define (make-adder n) (lambda (x) (+ x n)))(define 3+ (make-adder 3))(define n 7)> (3+ n);;;;; In file cs61a/lectures/3.2/count4.scm(define make-count (let ((glob 0)) (lambda () (let ((loc 0)) (lambda () (set! loc (+ loc 1)) (set! glob (+ glob 1)) (list loc
View Full Document