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/cplint/examples/throws.cpl
rzf 8fb01d6607 examples for the new programs
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2017 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2007-11-15 12:38:55 +00:00

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).