(define (tree-map proc tree)
(map (lambda (sub-tree)
(cond ((null? sub-tree) ())
((not (pair? sub-tree)) (proc sub-tree))
(else (tree-map proc sub-tree))))
tree))
(define square
(lambda (x) (* x x)))
(define (square-tree tree) (tree-map square tree))
(square-tree
(list 1
(list 2 (list 3 4) 5)
(list 6 7)))
SICP 练习2.31 tree-map
最新推荐文章于 2024-09-28 08:36:25 发布
本文介绍了一个使用Scheme语言实现的树形数据结构映射函数。该函数递归地遍历树形结构,并对每个节点应用指定的过程。示例中展示了如何定义一个简单的平方函数,并将其应用于树形结构中的所有数值节点。

1795

被折叠的 条评论
为什么被折叠?



