SICP_3.7-3.8

第一次写的：

;(define (make-account balance secret-password-list)

;        (define (withdraw amount)
;        (if (>= balance amount)
;            (begin (set! balance (- balance amount))
;                  balance)
;            "Insufficient funds"))
;
;             (define (deposit amount)
;               (set! balance (+ balance amount))
;               balance)
;
;             (define (dispatch m)
;               (cond
;                     ((eq? m 'withdraw) withdraw)
;                     ((eq? m 'deposit) deposit)
;                     (else (error "Unknow request -- MAKE-ACCOUNT"
;                                  m))))
;  (lambda (p m)
;    (if (in? p secret-password-list) (dispatch m)
;        (lambda (x) "Incorrect password"))))


;(define in?
;  (lambda (x list)
;    (cond ((null? list) #f)
;          ((eq? x (car list)) #t)
;          (else (in? x (cdr list))))))

;(define (make-joint account old-pa new-pa)
;  (set! account (make-account ((account (car old-pa) 'withdraw) 0)
;                              (cons new-pa old-pa))))

我尝试用建立列表的方法来做，但是这就导致了不同的账户可以用不同的密码来操作。

同时我写的这个过程还有bug，我用set！去 把一个新过程赋给一个旧过程，但是结果

上，Paul 可以通过 Peter 的密码来操作账户，Peter可以用Paul的来操作。可是，这两个

账户却是独立的，并没有关联起来，Paul对账户的操作，不会影响Peter账户，反之亦然。

所以set！到底做了什么，会出现这种情况？

思路相同的答案

换一个思路后：

(define (make-account balance secret-password)

        (define (withdraw amount)
        (if (>= balance amount)
            (begin (set! balance (- balance amount))
                   balance)
            "Insufficient funds"))

             (define (deposit amount)
               (set! balance (+ balance amount))
               balance)

             (define (dispatch m)
               (cond
                     ((eq? m 'withdraw) withdraw)
                     ((eq? m 'deposit) deposit)
                     (else (error "Unknow request -- MAKE-ACCOUNT"
                                  m))))
  (lambda (p m)
    (if (eq? p secret-password) (dispatch m)
        (lambda (x) "Incorrect password"))))


(define (make-joint account old-password new-password)
  (lambda (password mode)
    (if (eq? password new-password)
        (account old-password mode)
        "Incorrect password")))

(define peter-acc (make-account 100 'open-sesame))

(define paul-acc
  (make-joint peter-acc 'open-sesame 'rosebud))

((paul-acc 'rosebud 'withdraw) 10)
((peter-acc 'open-sesame 'withdraw) 20)
((paul-acc 'rosebud 'deposit) 10)
((peter-acc 'rosehud 'deposit) 10)

这个是在make-joint 过程中对密码进行判断，如果给的密码和新密码相同就通过旧密码去访问账户

不同的账户只能通过，自己的密码来访问账户

3.8：

(define f
  (let ((called #f))
    (lambda (x)
      (if called
          0
          (begin (set! called #t)
          x)))))

(+ (f 1) (f 0))
(+ (f 0) (f 1))