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.
yap-6.3/packages/cplint/examples/invalid.cpl

16 lines
140 B
Plaintext
Raw Normal View History

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