Klipy není nic tisknout

Question 1

Snažil jsem se napsat následující kód v KLIPY pro školní projekt (i když nechápu, proč AI je provedeno v tomto jazyce):

(deftemplate blood
    (slot bt)
    (multislot acc))
(deffacts acceptance
    (blood (bt 0) (acc 0 0))
    (blood (bt A) (acc 0 A))
    (blood (bt B) (acc 0 B))
    (blood (bt AB) (acc 0 A B AB)))
(defrule reading-input
=>
    (printout  t "Bloodtype of patient? ")
    (assert (patient (read)))
    (printout  t "Bloodtype of donor? ")
    (assert (donor (read))))
(defrule check-acceptance
    (patient ?patient)
    (donor ?donor)
    (blood (bt ?bt1) (acc ?acc1))
    (test (member$ ?donor ?acc1))
    =>
    (printout t "Transfusion is safe" crlf))

Z nějakého důvodu to nebude tisknout nic pro vstupy A a A nebo cokoliv jiného. Zkoušel jsem i to s if then else prohlášení, ale stejný výsledek.

[prev code]
(blood (bt ?bt1) (acc ?acc1))
=>
(if (eq ?patient ?bt1)
then
(printout t ?bt1)
else
(printout t ?donor)))

Nápad je napsat program, který vypíše, zda krevní transfuze je bezpečný, nebo ne.

Question 2

Upravit váš krevní vzorek tak, že bt slot je omezeno krevní skupinu pacienta a změnit proměnné acc1 na multifield proměnné tak, že to bude vázat na všechny hodnoty v acc slot:

(defrule check-acceptance
   (patient ?patient)
   (donor ?donor)
   (blood (bt ?patient) (acc $?acc1))
   (test (member$ ?donor ?acc1))
   =>
   (printout t "Transfusion is safe" crlf))

Gary Riley · Answer 1 · 2021-11-24T02:52:35

Upravit váš krevní vzorek tak, že bt slot je omezeno krevní skupinu pacienta a změnit proměnné acc1 na multifield proměnné tak, že to bude vázat na všechny hodnoty v acc slot:

(defrule check-acceptance
   (patient ?patient)
   (donor ?donor)
   (blood (bt ?patient) (acc $?acc1))
   (test (member$ ?donor ?acc1))
   =>
   (printout t "Transfusion is safe" crlf))

Klipy není nic tisknout

Otázka

Nejlepší odpověď

V jiných jazycích

Tato stránka je v jiných jazycích

Populární v této kategorii

Oblíbené položky v této kategorii