diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

examples for the new programs

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2017 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
rzf
2007-11-15 12:38:55 +00:00
parent 83b4c2cdac
commit 8fb01d6607
26 changed files with 281 additions and 49 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
cplint/examples/win.cpl Normal file
View File

@@ -0,0 +1,14 @@
/*
?- s([win(white)],P).
P = 0.5 ?
yes
?- s([win(black)],P).
P = 0.5 ?
yes
?- s([win(black),win(white)],P).
P = 0 ?
*/
win(white) :- \+ win(black).
win(black):- \+ win(white).
win(white) : 0.5 ; win(black) : 0.5.