?retractCh1 (retract ?retractCh1)(p

?retractCh1
(retract ?retractCh1)
(printout t crlf crlf crlf " Are you end user
End User ? (yes | no) " crlf crlf " Your answer: " )
(assert (ifYesNochoise (read))))
;;------------------R1------------------ next rule

ผลลัพธ์ (ไทย) 1:

?retractCh1 <- (iffoundChoice 1)(not (ifYesNochoise ?))=>(retract ?retractCh1)(printout t crlf crlf crlf " Are you end userEnd User ? (yes | no) " crlf crlf " Your answer: " )(assert (ifYesNochoise (read))));;------------------R1------------------ next rule

ผลลัพธ์ (ไทย) 2:

? retractCh1 <- (iffoundChoice 1)
(ไม่ได้ (ifYesNochoise)?)
=>
(ดึง retractCh1?)
(การพิมพ์เสื้อ CRLF CRLF CRLF
"คุณผู้ใช้ปลายทางผู้ใช้ปลายทาง(yes | no)?" CRLF CRLF "คำตอบของคุณ:")
(ยืนยัน (ifYesNochoise (อ่าน))))
;; ------------------ R1 ------------------ ต่อไป กฎ

ผลลัพธ์ (ไทย) 3:

? retractch1 < - ( iffoundchoice 1 )
( ไม่ได้ ( ifyesnochoise ? ) )
=
( ถอย ? retractch1 )
( พิมพ์ T CRLF CRLF CRLF " คุณผู้ใช้
ผู้ใช้ ? ( ใช่ | ไม่มี ) " CRLF CRLF " ตอบ : " )
( ยืนยัน ifyesnochoise ( อ่าน ) ) ) ) ) ) ) )
; R1 ------------------ ------------------ กฎต่อไป