(defun robot-position (state)
(third state))
(defun node-equal (s1 s2)
(< (distance
(robot-position s1)
(robot-position s2)) 0.8)
)
というように,ある程度の距離範囲内にあれば
同じとみなすようにする.
> (node-equal '(robot at (0 0)) '(robot at (0.1 0.1))) t