10.07.2015 Views

LISP I Programmer's Manual - Software Preservation Group

LISP I Programmer's Manual - Software Preservation Group

LISP I Programmer's Manual - Software Preservation Group

SHOW MORE
SHOW LESS

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)

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!