update package locations to a subdir packages

This commit is contained in:
Vitor Santos Costa
2009-02-16 12:23:29 +00:00
parent 495ff55868
commit 9c9444bece
151 changed files with 62955 additions and 0 deletions

View File

@@ -0,0 +1,23 @@
/*
?- s([heads(C)],P).
C = coin1
P = 0.51 ? ;
C = coin2
P = 0.51 ? ;
no
?- s([tails(C)],P).
C = coin1
P = 0.49 ? ;
C = coin2
P = 0.49 ? ;
no
s([tails(coin1)],P).
P = 0.49 ?
*/
heads(Coin): 0.5; tails(Coin) : 0.5:-toss(Coin),fair(Coin).
heads(Coin): 0.6 ; tails(Coin) : 0.4:-toss(Coin),biased(Coin).
fair(Coin):0.9 ; biased(Coin):0.1.
toss(coin1).
toss(coin2).