8fb01d6607
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2017 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
10 lines
156 B
Plaintext
10 lines
156 B
Plaintext
universe(['Coin'],[coin1,coin2]).
|
|
|
|
mode(heads(coin)).
|
|
mode(tails(coin)).
|
|
mode(toss(coin)).
|
|
mode(fair(coin)).
|
|
mode(biased(coin)).
|
|
|
|
type(coin,[coin1,coin2]).
|