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