Clips language example using fact base
This commit is contained in:
8
clips.clips
Normal file
8
clips.clips
Normal file
@@ -0,0 +1,8 @@
|
||||
(defrule hw
|
||||
(f ?x)
|
||||
=>
|
||||
(printout t ?x crlf))
|
||||
|
||||
(assert (f "Hello World"))
|
||||
|
||||
(run)
|
||||
Reference in New Issue
Block a user