Clips language example using fact base

This commit is contained in:
fogus
2008-07-23 21:10:23 -04:00
parent 3fa7c46d11
commit 684ccfa19e

8
clips.clips Normal file
View File

@@ -0,0 +1,8 @@
(defrule hw
(f ?x)
=>
(printout t ?x crlf))
(assert (f "Hello World"))
(run)