Mostra notizie nelle discussioni
Avatar
Scritto da
Non Autenticato
il 2009-01-12 17:32:00.0 alle 2009-01-12 17:32:00.0
lispari
definizione procedurale di cons, car e cdr Deluso

(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))

Pagina generata in 15 millisecondi

Utenti attivi: 12 nell'ultimo minuto, 33 negli ultimi cinque minuti, 64 negli ultimi 15 minuti