6 lines
132 B
Scheme
6 lines
132 B
Scheme
(define (fringe t)
|
|
(cond ((null? t) '())
|
|
((not (pair? t)) (list t))
|
|
(else (append (fringe (car t))
|
|
(fringe (cdr t))))))
|