12 lines
251 B
Text
12 lines
251 B
Text
(define (flatten x)
|
|
(cond
|
|
((null? x)
|
|
'())
|
|
((not (pair? x))
|
|
(list x))
|
|
(else
|
|
(append (flatten (car x))
|
|
(flatten (cdr x))))))
|
|
|
|
(print
|
|
(flatten '((1) 2 ((3 4) 5) ((())) (((6))) 7 8 ())))
|