cLISP 中的列表操作

Question

我有以下结构:

(defstruct node
  parent
  state
  cost)

我有一个 node 类型的结构列表。

我正在尝试实现两个功能:

(defun findMinimum (list)

returns the node with the smallest cost in the list
)


(defun replaceNode (list)

 Checks if a node with the same state as new-node already exists in the list. 
If so, replaces that node with new-node.
)

我当前的解决方案只是遍历整个列表以检查每个节点。我想知道在 cLISP 中是否有更有效的方法来做到这一点？

任何帮助将不胜感激。

Answer 1

我已将您的函数名称从驼峰式更改为更符合 Lispy 风格:

(defun find-minimum (list)
  (reduce #'min list :key #'node-cost) )

对于 replace-node，我猜你需要另一个关于新节点的参数。让我们假设这就是您想要的:

(defun replace-node (new-node list)
  (let ((pos-old-node (position (node-state new-node) list :key #'node-state)))
    (when pos-old-node
      (setf (nth pos-old-node list) new-node) )))