原理很简单,纯递归
scheme代码:
> (define (fringe m)
(cond ((null? m)
'())
((not (pair? (car m))) m)
(else (append (fringe (car m)) (fringe (cdr m))))))
> (fringe (list (list 1 2) (list 3 4) ))(1 2 3 4)
原理很简单,纯递归
scheme代码:
> (define (fringe m)
(cond ((null? m)
'())
((not (pair? (car m))) m)
(else (append (fringe (car m)) (fringe (cdr m))))))
> (fringe (list (list 1 2) (list 3 4) ))