8fb01d6607
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2017 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
16 lines
140 B
Plaintext
16 lines
140 B
Plaintext
/*
|
|
?- s([p],P).
|
|
P = 0.5 ?
|
|
yes
|
|
?- s([q],P).
|
|
P = 0.5 ?
|
|
yes
|
|
?- s([p,q],P).
|
|
P = 0 ?
|
|
yes
|
|
*/
|
|
|
|
p : 0.5;q : 0.5:- r.
|
|
r :- \+ p.
|
|
r :- \+ q.
|