This repository has been archived on 2023-08-20. You can view files and clone it, but cannot push or open issues or pull requests.
yap-6.3/packages/cplint/examples/throws.cpl

22 lines
363 B
Plaintext

/*
no
?- s([throws(mary),throws(john),break],P).
P = 0.46 ?
yes
?- s([throws(mary),throws(john),\+break],P).
P = 0.04 ?
yes
?- s([\+ throws(mary),throws(john),break],P).
P = 0.3 ?
yes
?- s([\+ throws(mary),throws(john),\+ break],P).
P = 0.2 ?
yes
?-
*/
break : 0.8 :- throws(mary).
break : 0.6 :- throws(john).
throws(mary) : 0.5.
throws(john).