如何删除 CLIPS 中多字段中的冗余？

Question

假设我们已经排序了多字段事实，例如：

(serie-1 7 7 5 5 1 1)
(serie-2 8 3 8 3 8 3)
(serie-3 6 4 9 4 6 2)

问题是从这个有序多字段事实中删除冗余字段以获得：

(serie-1 7 5 1)
(serie-2 8 3)
(serie-3 6 4 9 2)

问题是：如何进行？

Answer 1

         CLIPS (6.4 2/9/21)
CLIPS> 
(deftemplate serie
   (slot id)
   (multislot nums))
CLIPS>    
(deffacts start
   (serie (id 1) (nums 7 7 5 5 1 1))
   (serie (id 2) (nums 8 3 8 3 8 3))
   (serie (id 3) (nums 6 4 9 4 6 2)))
CLIPS>    
(defrule remove
   ?s <- (serie (nums $?b ?n $?m ?n $?e))
   =>
   (modify ?s (nums $?b ?n $?m $?e)))
CLIPS> (reset)
CLIPS> (facts)
f-1     (serie (id 1) (nums 7 7 5 5 1 1))
f-2     (serie (id 2) (nums 8 3 8 3 8 3))
f-3     (serie (id 3) (nums 6 4 9 4 6 2))
For a total of 3 facts.
CLIPS> (run)
CLIPS> (facts)
f-1     (serie (id 1) (nums 7 5 1))
f-2     (serie (id 2) (nums 8 3))
f-3     (serie (id 3) (nums 6 4 9 2))
For a total of 3 facts.
CLIPS>