tree - LISP 编程 - 计算树节点的函数

Question

我最近开始学习 lisp 并完成了一些可供我使用的简单练习，不幸的是我被卡住了，而且在花了几个小时之后，我似乎并没有接近一个像样的解决方案。

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

树的示例如下:(* (+ 10 (* 4 9)) (- 6 10))
该函数应返回:(-184 (46 10 (36 4 9)) (-4 6 10))

我尝试了各种方法，但没有任何效果。我创建了一些有效但在编码风格方面非常糟糕的东西，我真的迷失在这里。

(defun evalTree (node &optional n)
  (when node
    (rplaca node (eval node))
    (setq n (first (rest node)))
    (rplaca n (eval n))
    (setq n (first (rest (rest node))))
    (rplaca n (eval n))
    (setq n (first (rest (rest (first (rest node))))))
    (rplaca n (eval n)))
  (format t "node=~a n=~a~%" node n)
  node)

我认为我的解决方案应该是使用 apply 函数或 eval 函数，但我不确定如何在树上正确使用它们。

Answer 1

(defun eval-tree (tree)
  (flet ((arg (a)
           (if (atom a) a (first a))))
    (if (atom tree)
        tree
      (destructuring-bind (op a b)
          tree
        (let ((a1 (eval-tree a))
              (b1 (eval-tree b)))
          (list (funcall op (arg a1) (arg b1)) a1 b1))))))