Проверка подлинности CLIPS в правиле

Question

Я пишу экспертную систему о сыре. при сбросе всех фактов о различном сыре загружается в систему и задавая такой вопрос, как запах текстуры и т. Д., Это приведет к отмене определенных фактов из системы.

Вопрос: Как вы отслеживаете количество правил в системе. Я создал счет, но мне было интересно, есть ли способ увидеть количество фактов, находящихся в настоящее время в системе при запуске правила.

Любая помощь будет appriciated

Answer 1

Вы можете сделать вызов, чтобы получить-defrule-лист или получить-факт-лист, чтобы определить количество правил/фактов, присутствующих в системе:

CLIPS> (assert (a) (b) (c) (d)) 
<Fact-4> 
CLIPS> (defrule x =>) 
CLIPS> (defrule y =>) 
CLIPS> (defrule z =>) 
CLIPS> (length$ (get-defrule-list *)) 
3 
CLIPS> (length$ (get-fact-list *)) 
5 
CLIPS> (facts) 
f-0  (initial-fact) 
f-1  (a) 
f-2  (b) 
f-3  (c) 
f-4  (d) 
For a total of 5 facts. 
CLIPS> (rules) 
x 
y 
z 
For a total of 3 defrules. 
CLIPS>