کمک در مورد برنامه نویسی با کلیپس
سلام من یک برنامه کوچیک نوشتم با کلیپس ولی همش خطا می ده میتونید لطفا در صورت امکان کمکم کنید
(deftemplate MAIN::question
"A question the application may ask"
(slot text) ;; The question itself
(slot type) ;; Can be multi, text, or numeric
(multislot valid) ;; The allowed answers for type multi
(slot ident)) ;; The "name" of the question
(deffacts question-data
(question
(ident new-formal-result) (type multi) (valid original semioriginal none )
(text " are there new-formal-result presented? "))
(question
(ident new-ideas) (type multi) (valid original semioriginal none )
(text " are there new ideas presented?"))
)
(defrule MAIN :: rule1
(answer( new-formal-results original)(new-ideas original))
=>
(assert ( novelty good)))
|