24 lines
327 B
Prolog
24 lines
327 B
Prolog
|
|
:- use_module(library(pfl)).
|
|
|
|
:- set_clpbn_flag(solver,fove).
|
|
|
|
t(ann).
|
|
t(dave).
|
|
t(lucy).
|
|
t(john).
|
|
t(kristian).
|
|
t(sriraam).
|
|
|
|
markov p(X)::[t,f] ; [0.1, 0.3] ; [t(X)].
|
|
|
|
markov q(X)::[t,f], r(X)::[t,f] ; [0.9, 0.5, 0.5, 0.1] ; [t(X)].
|
|
|
|
markov q(X)::[t,f], p(X)::[t,f] ; [0.9, 0.5, 0.5, 0.1] ; [t(X)].
|
|
|
|
p(ann,t).
|
|
|
|
?- p(dave,X).
|
|
|
|
|