Announce/Chapter.2

2.1.3

알 수 없는 사용자 2011. 1. 5. 22:30 
; 2.1.3

(define (cons x y)
  (define (dispatch m)
    (cond ((= m 0) x)
          ((= m 1) y)
          (else (error "error"))))
  dispatch)

(define (car z) (z 0))

(define (cdr z) (z 1))