#lang racket
(define (make-account balance password)
(define (withdraw amount)
(if (>= balance amount)
(begin (set! balance (- balance amount))
balance)
"Insufficient funds"))
(define (deposit amount)
(set! balance (+ balance amount))
balance)
(define (is-pass? p)
(eq? p password))
(define (dispatch-password p m)
(if (is-pass? p)
(dispatch m)
(lambda (x) "Insufficient password")))
(define (dispatch m)
(cond ((eq? m 'withdraw) withdraw)
((eq? m 'deposit) deposit)
((eq? m 'pass?) #t)
(else (error "Unknown request -- MAKE-ACCOUNT"
m))))
dispatch-password)
(define (make-joint acc password newpassword)
(define (is-pass? p)
(eq? p newpassword))
(define (dispatch-password p m)
(if (is-pass? p)
(acc password m)
(lambda (x) "Insufficient jointpassword")))
dispatch-password)
(define peter-acc (make-account 100 'open-sesame))
(define paul-acc (make-joint peter-acc 'open-sesame 'rosebud))
((peter-acc 'open-sesame 'withdraw) 40)
((paul-acc 'rosebud 'withdraw) 40)
运行结果
60
20