(defrule start_up
=>
(printout t crlf "Please type N (integer nos): " crlf)
(bind ?a (read))
(assert(bumber-select-1 ?a)(bumber-select-2 ?a))
(defrule _1
?a<-(bumber-select-1 ?n)
(test(> ?n 0))
=>
(retract ?a)
(assert(bumber-select-1 (- ?n 1)))
)
(defrule _2
?a<-(bumber-select-2 ?n)
(test(> ?n 0))
=>
(retract ?a)
(assert(bumber-select-2 (- ?n 1)))
)
---------------------------------------------------------------------
To unsubscribe, send the words 'unsubscribe jess-users [EMAIL PROTECTED]'
in the BODY of a message to [EMAIL PROTECTED], NOT to the
list (use your own address!) List problems? Notify [EMAIL PROTECTED]
---------------------------------------------------------------------
