clojure 用它的答案替换运算符

Question

我正在尝试生成一个函数，该函数将表达式“tree”作为其参数，并返回具有相关计算值的树来代替运算符。

树的外观示例如下:

(* (+ 10 (* 4 9)) (- 6 10))

函数应该返回:

(-184 (46 10 (36 4 9)) (-4 6 10))

如果有人能为我提供一两个解决方案，并解释他们如何工作来为我指明正确的方向，那就太好了。

(def a '(* (+ 5 (* 3 7)) (- 6 8)) )

(defn evaltree [tree] (cons (eval (first (rest tree))) tree)) 

是我目前所拥有的。它评估列表的第一部分，但不会递归执行列表的其余部分，也不会替换运算符，它只会将值添加到开头。

Answer 1

当您想更新任意嵌套数据结构时，clojure.walk 中的函数很有用，以下解决方案似乎适用于这种情况。

(require '[clojure.walk :as w])

(defn op->answer [expr]
    (if (list? expr)
      (cons (eval expr) (rest expr))
      expr))

(w/prewalk op->answer '(* (+ 10 (* 4 9)) (- 6 10)))

;;=> (-184 (46 10 (36 4 9)) (-4 6 10))

clojore.walk/prewalk 对表达式树进行预序遍历，并用函数的返回值替换每个节点。您可以使用以下代码段查看订单或电话。

(w/prewalk #(do (println %) %) '(* (+ 10 (* 4 9)) (- 6 10)))

;; => prints the following 
(* (+ 10 (* 4 9)) (- 6 10))
*
(+ 10 (* 4 9))
+
10
(* 4 9)
*
4
9
(- 6 10)
-
6
10