SICP 练习2.31 tree-map

原创于 2016-06-24 14:57:54 发布 · 330 阅读

0 ·

CC 4.0 BY-SA版权

SICP 专栏收录该内容

77 篇文章

订阅专栏

本文介绍了一个使用Scheme语言实现的树形数据结构映射函数。该函数递归地遍历树形结构，并对每个节点应用指定的过程。示例中展示了如何定义一个简单的平方函数，并将其应用于树形结构中的所有数值节点。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

(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)))