Final Tree Example - Flatten

• FLATTEN takes internal parentheses out of a list

(define flatten
(lambda (l)

(cond ((null? l) NIL)

((atom? (car l))

(cons (car l) (flatten (cdr l))))
(else (append (flatten (car l))
(flatten (cdr l)))))))

Previous slide

Next slide

Back to first slide

View graphic version