9 lines
125 B
Plaintext
9 lines
125 B
Plaintext
|
(define (cons x y)
|
||
|
(lambda (m) (m x y)))
|
||
|
|
||
|
(define (car z)
|
||
|
(z (lambda (p q) p)))
|
||
|
|
||
|
(define (cdr z)
|
||
|
(z (lambda (p q) q)))
|