3.1 #lang racket (define (make-accumulator sum) (lambda (x) (set! sum (+ sum x)) sum)) (define A (make-accumulator 5)) ;test (A 10) (A 10) 3.2 #lang racket (define (make-monitored function) (let ((call-count 0)) (lambda (arg) (cond ((eq? a…