Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (deffunction calc(?b)
- ?fact <- (category (type saloon)(value ?a))
- (bind ?probability (/ (* ?a ?b) (+ (* ?a ?b) (* (- 1 ?a) (- 1 ?b)))))
- (bind ?prob (/ (round (* ?probability 100)) 100))
- (modify ?fact (value (?prob)))
- )
Add Comment
Please, Sign In to add comment