CLIPS-测试条件元素

一、

１、测试条件元素用(test (> ?mark 80))这种方式

２、下例判断所有比80高的成绩是好成绩

二、操作

        CLIPS (Quicksilver Beta 09/24/07)
CLIPS>
(defrule is-good
(mark ?mark)
(printgood printgood)
(test (> ?mark 80))
=>
(printout t "good!" crlf))
CLIPS> (assert (mark 90))
<Fact-1>
CLIPS> (assert (printgood printgood))
<Fact-2>
CLIPS> (facts)
f-0    (initial-fact)
f-1    (mark 90)
f-2    (printgood printgood)
For a total of 3 facts.
CLIPS> (run)
good!
CLIPS>