(define nth
(lambda (n l)
(if (equaln n one)
(car l)
(nth (sub n one) (cdr l)))))
|
(define l1 (cons one (cons three (cons four nil))))
;
(ldisp! (nth two l1))
--> 3
|
Georg P. Loczewski 2004-03-05