列表操作中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)) 

对于更换节点我猜你需要用新的节点的另一个理由。我们假设这就是你想要的：

(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))))