2.1.3 有感: 在支持函数作为第一对象的语言里, 可以直接 使用 “过程” 定义 “数据”

my-cons.scm

(define (my-cons x y)
    (lambda (m) 
        (cond ((= m 0) x)
              ((= m 1) y)))
    )

(define (my-car z) (z 0))

(define (my-cdr z) (z 1))

; 100
(my-car (my-cons 100 20))

; 20
(my-cdr (my-cons 100 20))

技巧: 使用 函数 捕捉和记录 “变量”. 使用 函数本身 作为 “变量” 读写的 媒介.