14 lines
224 B
Scheme
14 lines
224 B
Scheme
|
;;; -*-Scheme-*-
|
||
|
|
|
||
|
|
(define (kons left right)
|
||
|
|
(lambda (op)
|
||
|
|
(case op
|
||
|
|
(a left)
|
||
|
|
(d right))))
|
||
|
|
|
||
|
|
(define (kar cell) (cell 'a))
|
||
|
|
(define (kdr cell) (cell 'd))
|
||
|
|
|
||
|
|
(let ((k (kons 1 2)))
|
||
|
|
(print (cons (kar k) (kdr k))))
|