(define (square-tree tree) (tree-map square tree))
(define (tree-map square tree)
(map (lambda (tree)
(if (pair? tree)
(tree-map square tree)
(square tree)))
tree))
(define square (lambda (x) (* x x)))
扫一扫
评论
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
查看更多评论
添加红包
