Hatena::Groupsicp

SICP読書記

 | 

2009-11-21

問題3.7

問題3.7 - SICP読書記 を含むブックマーク はてなブックマーク - 問題3.7 - SICP読書記

(define (make-joint account original-password new-password)
  (lambda (password m)
	(if (eq? password new-password)
		(account original-password m)
		(error "Incorrect joint account password"))))

(define peater-acc (make-account 100 'peater-password))

(define paul-acc 
  (make-joint peater-acc 'peater-password 'paul-password))

((peater-acc 'peater-password 'deposit) 50)
;; -> 150

((paul-acc 'paul-password 'withdraw) 100)
;; -> 50

見事隣の人の口座からカネを引き出すことに成功

 |