SICP 2.35 树叶子节点的数量

原创于 2017-01-15 22:49:44 发布 · 486 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#scheme #lambda #lisp #树

Lisp/SICP 专栏收录该内容

12 篇文章

订阅专栏

本文介绍了一种使用Scheme语言实现的递归算法，用于计算树形结构中叶子节点的数量。通过定义一个名为`count_leaves`的过程，该过程能够递归地遍历树的每个节点，并针对每个非叶子节点再次调用自身，直至遍历完整棵树。

这个问题并不难，但是要迎合出题人的格式：

(define (count_leaves t)
    (accumulate <??> <??> (map <??> <??>)))

Scheme代码：

> (define (count_leaves t)
    (accumulate + 0 (map (lambda (t)
                           (if (pair? t)
                               (count_leaves t)
                               1)) t)))

运行结果：

> (count_leaves (list 1 (list 2 3 ) 4 5))
5

还是递归思想，要是遇到叶子节点计数 1，如果不是叶子节点递归调用自身count_leaves继续递归处理。