fork download
copy 
  1. ; your code goes here
  2.  
  3. (assert (card spade 9))
  4.  
  5. (facts)
  6. (defrule spade-9
  7.          (card spade 9)
  8.     =>
  9.          (printout t "spade 9 です" crlf)
  10. )
  11. (exit)
  12. ; empty line at the end
Success #stdin #stdout 0.01s 5352KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
f-0     (initial-fact)
f-1     (card spade 9)
For a total of 2 facts.
https://ideone.com/V0InDM
language:
Clips (clips 6.30)
created:
10 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!