2013-05-26 94 views

回答

1
CLIPS> 
(defrule example 
    => 
    (bind ?f (assert (new-fact))) 
    (bind ?i (fact-index ?f)) 
    (printout t "The fact index is " ?i crlf)) 
CLIPS> (reset) 
CLIPS> (run) 
The fact index is 1 
CLIPS> (facts) 
f-0  (initial-fact) 
f-1  (new-fact) 
For a total of 2 facts. 
CLIPS>