计算机程序的构造和解释 练习题3.20

代码如下

#lang R5RS
#lang racket
(define (cons x y)
  (define (set-x! v) (set! x v))
  (define (set-y! v) (set! y v))
  (define (dispatch m)
    (cond ((eq? m 'car) x)
          ((eq? m 'cdr) y)
          ((eq? m 'set-car!) set-x!)
          ((eq? m 'set-cdr!) set-y!)
          (else (error "Undefined operation -- CONS" m))))
  dispatch)
(define (car z) (z 'car))
(define (cdr z) (z 'cdr))
(define (set-car! z new-value)
  ((z 'set-car!) new-value)
  z)
(define (set-cdr! z new-value)
  ((z 'set-cdr!) new-value)
  z)
(define x (cons 1 2))
(define z (cons x x))
(set-car! (cdr z) 17)
(car x)

运行结果

#<procedure:dispatch>
17

(define x (cons 1 2))
(define z (cons x x))
(set-car! (cdr z) 17)
这三句的环境模型

(car x)