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