fork download
copy 
  1. ; your code goes here
  2. (defquery query (?template ?bindings)
  3.   (do-for-fact ((?fact ?template))
  4.     (bind-bindings ?bindings ?fact)
  5.     (printout t ?fact crlf)))
  6.     (deftemplate datos-personales
  7. (field nombre)
  8. (field edad)
  9. (field peso) 
  10. (field fumador)
  11. (multifield fecha-nacimiento))
  12.  
  13.  
  14. (deffacts gente
  15. (datos-personales (nombre angel) (peso 60) (edad 30)
  16. (fumador no) (fecha-nacimiento 18 06 1970))
  17. (datos-personales (nombre belinda) (peso 120) (edad 45)
  18. (fumador si) (fecha-nacimiento 18 06 1955))
  19. (datos-personales (nombre carlos) (peso 120) (edad 60)
  20. (fumador si)(fecha-nacimiento 18 06 1940)) )
  21.  
  22. (query (datos-personales (nombre angel) (edad ?edad)))	
  23. (exit)
  24. ; empty line at the end
Success #stdin #stdout 0.01s 5412KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
[EXPRNPSR3] Missing function declaration for defquery.

[EXPRNPSR3] Missing function declaration for query.
https://ideone.com/Hz4eKD
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!