/*
   ?- 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.