SICP 2.28 遍历二叉树的叶子节点

来源:互联网 发布:佳能相机照片导入mac 编辑:程序博客网 时间:2024/05/29 05:14

原理很简单,纯递归

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)

0 0