如何打印出规则中的所有匹配事实

Question

我有如下规则，我想打印与此规则兼容的所有事实（此处为对象）。我有一个事实对象，其中一些 "objct" 遵循规则。我该怎么做？下面的打印输出只是打印玩家得到的最新对象。但是我想打印出所有这些。有什么想法吗？

(defrule have_objcts   
?input <- (input have|possession)
   (objct (name ?n) (location player) (used 0))
   =>          
 ;WHAT SHOULD I WRITE HERE TO PRINTOUT those OBJCT's BELONG TO 
PALYER???????????
 (printout t crlf ?n)
   (retract ?input))

Answer 1

使用匹配命令：

CLIPS> 
(deftemplate objct
   (slot name)
   (slot location)
   (slot used))
CLIPS>    
(deffacts initial
   (objct (name x) (location player) (used 0))
   (objct (name y) (location elsewhere) (used 1))
   (objct (name z) (location player) (used 0))
   (input have)
   (input want)
   (input possession)
   (input thing))
CLIPS>    
(defrule have_objcts   
   ?input <- (input have|possession)
   (objct (name ?n) (location player) (used 0))
   =>       
   (retract ?input)) 
CLIPS> (reset)
CLIPS> (matches have_objcts)
Matches for Pattern 1
f-4
f-6
Matches for Pattern 2
f-1
f-3
Partial matches for CEs 1 - 2
f-6,f-3
f-6,f-1
f-4,f-3
f-4,f-1
Activations
f-6,f-3
f-6,f-1
f-4,f-3
f-4,f-1
(4 4 4)
CLIPS> (run)
CLIPS> (matches have_objcts)
Matches for Pattern 1
 None
Matches for Pattern 2
f-1
f-3
Partial matches for CEs 1 - 2
 None
Activations
 None
(2 0 0)
CLIPS>

如何打印出规则中的所有匹配事实

How to printout all matches facts in a rule

clips