tag:blogger.com,1999:blog-8288194986820249216.post8324207892324952437..comments2024-03-22T05:09:17.789-07:00Comments on Abstract Heresies: An early LISP program (circa Feb. 1960)Joe Marshallhttp://www.blogger.com/profile/03233353484280456977noreply@blogger.comBlogger3125tag:blogger.com,1999:blog-8288194986820249216.post-13583031871814360742011-03-01T15:30:53.920-08:002011-03-01T15:30:53.920-08:00... and I would have been wrong. This is correct:...... and I would have been wrong. This is correct:<br /><br />(define collapse <br /> (lambda (l)<br /> (cond ((pair? l) <br /> (if (pair? (car l))<br /> (append (collapse (car l)) <br /> (collapse (cdr l)))<br /> (cons (car l) (collapse (cdr l)))))<br /> ((null? l) '())<br /> (else (list l)))))Joe Marshallhttps://www.blogger.com/profile/03233353484280456977noreply@blogger.comtag:blogger.com,1999:blog-8288194986820249216.post-53232459598947243052011-03-01T12:34:04.695-08:002011-03-01T12:34:04.695-08:00I would have written it like this:
(define collaps...I would have written it like this:<br><br />(define collapse<br /> (lambda (l)<br /> (cond ((pair? l) (append (collapse (car l)) <br /> (collapse (cdr l))))<br /> ((null? l) '())<br /> (else (list l)))))Joe Marshallhttps://www.blogger.com/profile/03233353484280456977noreply@blogger.comtag:blogger.com,1999:blog-8288194986820249216.post-83096512551621647542011-02-21T06:57:01.003-08:002011-02-21T06:57:01.003-08:00Another example is:
http://www.informatimago.com/...Another example is:<br /><br /><a href="http://www.informatimago.com/develop/lisp/small-cl-pgms/wang.html" rel="nofollow">http://www.informatimago.com/develop/lisp/small-cl-pgms/wang.html</a><br /><br />A driver is defined there to interpret directly the card decks (but the wang program didn't use environment lists, so the driver doesn't take them into account, it would have to be modified to interpret the collapse deck).pjbhttps://www.blogger.com/profile/09065388232282458321noreply@blogger.com