Получить идентификатор факта Я только что сказал

Question

Есть ли способ для меня получить идентификатор факта, который я только что утверждал в RHS правила? Что-то вроде линий

?f <- (assert (new-fact)) 

Answer 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>