8fb01d6607
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2017 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
22 lines
254 B
Plaintext
22 lines
254 B
Plaintext
/*
|
|
|
|
s([on(3,1)],P).
|
|
P = 0.0625
|
|
sc([on(3,1)],[on(2,1)],P).
|
|
P = 0.5 ?
|
|
|
|
sc([on(4,1)],[on(2,1)],P).
|
|
P = 0.25
|
|
|
|
sc([on(10,1)],[on(2,1)],P).
|
|
P = 0.00390625
|
|
|
|
|
|
*/
|
|
on(0,1):0.5;on(0,2):0.5.
|
|
|
|
on(X,1):0.5;on(X,2):0.5:-
|
|
X1 is X-1,X1>=0,
|
|
on(X1,Y),
|
|
\+ on(X1,2).
|