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