8fb01d6607
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2017 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
22 lines
363 B
Plaintext
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).
|