Jess 对每个事实执行一次规则

如何仅对每个事实执行一次规则

(defrule clean
     ?li<-(VISUAL::removedLine ?line)       
     ?cr<-(point (x ?px) (y ?py &: (< ?py ?line)))
     => 
     (modify ?cr (x ?px) (y (+ 1 ?py))))

执行规则

 point (x 1) (y 3)

 point (x 1) (y4)

 point (x 1) (y 3)

执行规则

 point (x 1) (y 3)

 point (x 1) (y4)

 point (x 1) (y 3)

我只想让它执行一次，就像这样：

执行规则

 point (x 1) (y 3)

 point (x 1) (y4)

 point (x 1) (y 3)

另一个俄罗斯方块玩家？：-）

无论如何，你必须使用

(defrule clean
   (declare (no-loop TRUE)) 
   ?li<-(VISUAL::removedLine ?line)     

（定义规则清理）
（声明（无循环为真））
？李