SICP 习题2.4 cons car cdr 用过程实现

(define (cons-a x y)
  (lambda (m) (m x y)))

(define (car-a z)
  (z (lambda (p q) p)))

(define (cdr-a z)
  (z (lambda (p q) q)))

(define a (cons-a 1 2))
(newline)
(display (car-a a))
(newline)
(display (cdr-a a))