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))
    • Avatar
      ☺
      Scritto da
      avvelentani
      Cubicolario
      il 2009-01-12 17:37:00.0 alle 2009-01-12 17:37:00.0
      Trollate totali: 18184
      Re: lispari

      - Scritto da:
      > 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))


      e quindi?
      I think happiness is love
      - Vladimir Putin
    • Avatar
      Scritto da
      Non Autenticato
      il 2009-01-12 17:56:00.0 alle 2009-01-12 17:56:00.0
      Re: lispari

      - Scritto da:
      > 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))



      de sto lispe nun se capisce 'na fava! Geek
<softv>

Pagina generata in 30 millisecondi

Utenti attivi: 14 nell'ultimo minuto, 40 negli ultimi cinque minuti, 78 negli ultimi 15 minuti