examples for the new programs
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2017 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
15
cplint/examples/invalid.cpl
Normal file
15
cplint/examples/invalid.cpl
Normal file
@@ -0,0 +1,15 @@
|
||||
/*
|
||||
?- 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.
|
Reference in New Issue
Block a user