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/hiv.cpl
2009-02-16 12:23:29 +00:00

28 lines
389 B
Plaintext

/*
?- s([hiv(a)],P).
P = 0.154 ?
yes
?- s([hiv(b)],P).
P = 0.154 ?
yes
?- s([hiv(b),hiv(a)],P).
P = 0.118 ?
yes
?- s([\+ hiv(b),\+ hiv(a)],P).
P = 0.81 ?
yes
?- s([ hiv(b),\+ hiv(a)],P).
P = 0.036 ?
yes
?- s([\+ hiv(b),hiv(a)],P).
P = 0.036 ?
yes
*/
(hiv(a) : 0.1).
(hiv(b) : 0.1).
(hiv(a) : 0.6) :- hiv(b).
(hiv(b) : 0.6) :- hiv(a).
hiv(a) :- hiv(a).
hiv(b) :- hiv(b).