Clips 剪辑规则内的事实检查

我正在写一个奶酪专家系统。 当复位时，有关各种奶酪的所有事实被加载到系统中，通过询问诸如纹理、气味等问题，这将从系统中收回某些事实

我的问题是，如何跟踪系统中的规则数量。我创建了一个计数，但我想知道在运行规则时是否有办法查看系统中当前的事实数量

---

欢迎您提供任何帮助

您可以拨打电话获取defrule list或get fact list，以确定系统中存在的规则/事实的数量：

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>

CLIPS>（断言（a）（b）（c）（d））
剪辑>（defrule x=>）
剪辑>（反规则y=>）
剪辑>（定义规则z=>）
剪辑>（长度$（获取定义规则列表*）
3.
剪辑>（长度$（获取事实列表*）
5.
剪辑>（事实）
f-0（初始事实）
f-1（a）
f-2（b）
f-3（c）
f-4（d）
总共5个事实。
剪辑>（规则）
x
Y
Z
总共有3条规则。
剪辑>