clips:避免连接约束

Question

让我们假设我们有以下CLIPS模板和规则：

;; The queue sequence starts at 0.
;; -1 is a placeholder value to identify a newly inserted element.
;; The idea is to put a newly inserted element at the end of the queue.
(deftemplate queue-element
    (slot order (type INTEGER) (default -1))

(deftemplate put-at-the-end
    ?e1 <- (queue-element (order -1))
    ?e2 <- (queue-element (order ?o1))
    (not (queue-element (order ?o2&:(> ?o2 ?o1))))
  =>
    (modify ?e1 (order (+ ?o1 + 1))))

是否有一种方法可以将“连接约束”(> ?o2 ?o1)从模式中移出并将其移动到类似于(test (> ?o2 ?o1))构造的位置？

这样做的目的是为了避免这种进退两难的局面。

Answer 1

可以使用和条件元素将多个条件元素放置在而不是条件元素中。

CLIPS> 
(deftemplate queue-element
    (slot order (type INTEGER) (default -1)))
CLIPS> 
(defrule put-at-the-end
    ?e1 <- (queue-element (order -1))
    ?e2 <- (queue-element (order ?o1))
    (not (and (queue-element (order ?o2))
              (test (> ?o2 ?o1))))
  =>
    (modify ?e1 (order (+ ?o1 1))))
CLIPS>