Ajouter trois nombres en utilisant CLIPS

Question

Je suis un nouveau monde de systèmes experts. J'apprends à utiliser les outils CLIPS. Quelqu'un peut-il m'aider à créer un programme pour ajouter trois nombres? Merci

Answer 1

CLIPS> 
(deftemplate add 
    (multislot numbers)) 
CLIPS> 
(defrule add-3-numbers 
    (add (numbers ?n1 ?n2 ?n3)) 
    => 
    (printout t ?n1 " + " ?n2 " + " ?n3 " = " (+ ?n1 ?n2 ?n3) crlf)) 
CLIPS> (assert (add (numbers 1 2 3))) 
<Fact-1> 
CLIPS> (assert (add (numbers 2 9 11))) 
<Fact-2> 
CLIPS> (run) 
2 + 9 + 11 = 22 
1 + 2 + 3 = 6 
CLIPS> 

Mise à jour:

CLIPS> (clear) 
CLIPS> 
(defrule add-3-numbers 
    => 
    (printout t "Number 1? ") 
    (bind ?n1 (read)) 
    (printout t "Number 2? ") 
    (bind ?n2 (read)) 
    (printout t "Number 3? ") 
    (bind ?n3 (read)) 
    (printout t ?n1 " + " ?n2 " + " ?n3 " = " (+ ?n1 ?n2 ?n3) crlf)) 
CLIPS> (reset) 
CLIPS> (run) 
Number 1? 1 
Number 2? 2 
Number 3? 3 
1 + 2 + 3 = 6 
CLIPS> (evenp 3) 
FALSE 
CLIPS> (oddp 7) 
TRUE 
CLIPS>