2013-09-16 39 views

回答

1

是:

CLIPS> (deffunction foo() 
     (printout t "The function was called." crlf)) 
CLIPS> (defrule calls-function 
     (trigger) 
     => 
     (foo) 
     ) 
CLIPS> (reset) 
CLIPS> (assert (trigger)) 
<Fact-1> 
CLIPS> (run) 
The function was called. 
CLIPS>