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/win.cpl

15 lines
223 B
Plaintext

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