ToB企服应用市场:ToB评测及商务社交产业平台

标题: 习题2.31 [打印本页]

作者: 去皮卡多 时间: 2024-8-6 04:33
标题: 习题2.31

先上代码

(defn square [x](* x x))
(defn square-tree[tree]
(tree-map square tree)
)
(defn tree-map [op tree]
(cond (not (seq? tree)) (op tree)
(empty? tree) nil
:else (cons (tree-map op (first tree)) (tree-map op (rest tree))
)
)
)

复制代码

标题实际上是想让我们将树的遍历与平方操作分脱离，以方便我们实现树的其他操作，好比立方，自加之类的操作。
标题标难点是理解op参数应该在什么时间调用。理解透以后这个题就非常简单。
对比下原来的做法,实际上就是在原来代码中（square tree）变成（op tree）,其他部分没有变化。
相当于将方法以参数的情势传递给方法内部，并在适当的时间调用。这也是函数式编程中经常提及的高阶函数的用法。为背面解释高阶函数做铺垫。

(defn square-tree[tree]
(cond (not (seq? tree)) (square tree)
(empty? tree) nil
:else (cons (square-tree (first tree)) (square-tree (rest tree))
)
)
)

复制代码

免责声明：如果侵犯了您的权益，请联系站长，我们会及时删除侵权内容，谢谢合作！更多信息从访问主页：qidao123.com:ToB企服之家，中国第一个企服评测及商务社交产业平台。

欢迎光临 ToB企服应用市场:ToB评测及商务社交产业平台 (https://dis.qidao123.com/)