fork download
  1. ; your code goes here
  2. (deffacts hechos-iniciales
  3. (equipo pc_laboratorio1)
  4. (sintoma ruido_disco)
  5.  
  6. )
  7.  
  8. (defrule detectar-fuente
  9. (equipo pc_laboratorio1)
  10. (sintoma ruido_disco)
  11. =>
  12. (assert (componente-sospechoso fuente_poder))
  13. )
  14. (reset)
  15. (facts)
  16.  
  17.  
  18. (exit)
  19. ; empty line at the end
Success #stdin #stdout 0.01s 5320KB
stdin
Standard input is empty
stdout
[PRNTUTIL2] Syntax Error:  Check appropriate syntax for defrule.

ERROR:
(defrule MAIN::detectar-fuente
   (equipo pc_laboratorio1)
   (sintoma ruido_disco)
   =>
f-0     (initial-fact)
f-1     (equipo pc_laboratorio1)
f-2     (sintoma ruido_disco)
For a total of 3 facts.