Questão de sintaxe (CL vs. Scheme)
Um trecho de código em ANSI Common Lisp:
(defun -cons (a d) #’(lambda (m) (funcall m a d))) (defun -car (c) (funcall c #’(lambda (a d) a))) (defun -cdr (c) (funcall c #’(lambda (a d) d)))
O mesmo em Scheme:
(define (-cons a d) (lambda (m) (m a d))) (define (-car c) (c (lambda (a d) a))) (define (-cdr c) (c (lambda (a d) d)))
| Enviar por e-mail | Hits para esta publicação: 487
Deixe uma resposta.