(define (make-joint account ourpass genpass) (define (withdraw amo) ((account 'withdraw genpass) amo)) (define (deposit amount) ((account 'deposit genpass) amo)) (define (dispatch m p) (if (eq? ourpass p) (cond ((eq? m 'withdraw) withdraw)…

;;q3.5 ;;そんなわたしはMzScheme派 (require (lib "27.ss" "srfi")) (define (square x) (* x x)) (define random random-real) (define (random-in-range low high) (let ((range (- high low))) (+ low (* (random) range)))) (define (monte-carlo trail…