19 lines
154 B
Plaintext
19 lines
154 B
Plaintext
|
|
||
|
|
:- use_module(library(pfl)).
|
||
|
|
|
||
|
|
:- set_clpbn_flag(solver,fove).
|
||
|
|
|
||
|
|
|
||
|
|
t(ann).
|
||
|
|
t(dave).
|
||
|
|
|
||
|
|
bayes p(X)::[t,f] ; [0.1, 0.3] ; [t(X)].
|
||
|
|
|
||
|
|
|
||
|
|
p(ann,t).
|
||
|
|
|
||
|
|
|
||
|
|
?- p(dave,X).
|
||
|
|
|
||
|
|
|