kb
05.02.2012 21:18 c8541125
Сволочи. Они взяли и реализовали cons/car/cdr через замыкания. То есть я и сам мог это сделать, а не догадался.
(define (cons x y)
(define (dispatch m)
(cond ((= m 0) x)
((= m 1) y)
(else (error "Argument not 0 or 1 — CONS" m))))
dispatch)
(define (car z) (z 0))
(define (cdr z) (z 1))
Recommended by:
@dorfe
1 comment
recommend
bookmark
subscribe
ага, припоминаю такое