LISP I Programmer's Manual - Software Preservation Group
LISP I Programmer's Manual - Software Preservation Group
LISP I Programmer's Manual - Software Preservation Group
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
THE TIME IS NOW 2/16 1139.7FUNCTIONAPPLY(F,X,P) HAS BEEN ENTERED, ARGUMENTS..DEFINE( ( (COLLAPSE, (LAMBDA,(L),(COND,( (ATOM,L),(CONS,L, NIL) ),( (NULL, (CDR,L> 1, (C~ND, ( (ATOM, (CAR,L) ) ,L), (T, (COLLAPSE, (CAR,L) 1 ) ) 1 9 0 ,(APPEND, (COLLAPSE,(CAR,L)), (COLLAPSE,(CDR,L)) ) ) ) ) ) ) )END OF APPLY, VALUE IS a ..h he function collapse has now been defined by having EXPR followedby the defining S-expression put on its ,association list].h he function collapse is now used on the three examples].THE TIME IS NOW 2/16.1139.7FUNCTION APPLY (F, X, P) HAS BEEN ENTERED, ARGUMENTS. .COLLAPSE((((A,@, ((c))), ((D, (E,F)), (GI,((H)))))THE TIME IS NOW 2/16 1139.8FUNCTION APPLY (F, X, P ) HAS BEEN ENTERED, ARGUMENTS. .COLLAPSE( (A, (B, (C, (D, (El > 1 ,F, (G, (H, J) ) 1)END OF APPLY, VALUE IS ...(A,B,c,D,E,F,G,H, J)