Scritto da
Non Autenticato
il 2009-01-12 17:32:00.0 alle 2009-01-12 17:32:00.0
definizione procedurale di cons, car e cdr 
(defun my-cons (x y)
(lambda (m)
(cond ((= m 0) x)
((= m 1) y)
(t
(error "Argument not 0 or 1 -- my-cons")))))
(defun my-car (z)
(funcall z 0))
(defun my-cdr (z)
(funcall z 1))
-
lispari @ 2009-01-12 17:32:00.0 di Non Autenticato
-
■ @ 2009-01-12 17:56:00.0 di Non Autenticato
-
■ @ 2009-01-12 17:37:00.0 di avvelentani
-