a4-4-4337 - ) ) ) (expand '( apples oranges ( bananas...

Info iconThis preview shows page 1. Sign up to view the full content.

View Full Document Right Arrow Icon
(define expand (lambda (lis) (cond ( (null? lis) '() ) ( (list? (car lis)) (append (expand(car lis)) (expand (cdr lis))) ) (else (cons (car lis)(expand(cdr lis))))
Background image of page 1
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: ) ) ) (expand '( apples oranges ( bananas pineapple ) (mango (acai berry ( guava apricot ))strawberry))) ) (expand '( (1 2 3) 4 5 ( 8 9) ( 4 23 3) ))...
View Full Document

This note was uploaded on 10/02/2009 for the course CS 4337 taught by Professor Karrah during the Fall '08 term at University of Texas at Dallas, Richardson.

Ask a homework question - tutors are online