小开心
2012-12-6 03:55 PM
小弟在做着一个assignment
可是卡着了
由于这个语言比较冷门
google也很难搜索类似
想请教...
(defrule no-beard
(name ?name)
(beard no)
=>
(assert (mobile phone salesman))
(printout t "mobile phone salesman" crlf)
)
(defrule beard-up-to-twelve
(name ?name)
(beard ?x&
numberp ?x)&> ?x 0)&<= ?x 12))
=>
(assert (philosopher))
(printout t "philosopher" crlf)
)
由于beard value要获取string "no" 和 integer number
结果就一直生不出agenda..请问这个要怎么解决?
可是卡着了
由于这个语言比较冷门
google也很难搜索类似
想请教...
(defrule no-beard
(name ?name)
(beard no)
=>
(assert (mobile phone salesman))
(printout t "mobile phone salesman" crlf)
)
(defrule beard-up-to-twelve
(name ?name)
(beard ?x&
numberp ?x)&> ?x 0)&<= ?x 12))=>
(assert (philosopher))
(printout t "philosopher" crlf)
)
由于beard value要获取string "no" 和 integer number
结果就一直生不出agenda..请问这个要怎么解决?
