Be consistent: constraint is always on top
This commit is contained in:
parent
66cd58655b
commit
e66ff6777c
@ -11,6 +11,16 @@
|
|||||||
%:- clpbn:set_clpbn_flag(em_solver,bp).
|
%:- clpbn:set_clpbn_flag(em_solver,bp).
|
||||||
%:- clpbn:set_clpbn_flag(em_solver,bdd).
|
%:- clpbn:set_clpbn_flag(em_solver,bdd).
|
||||||
|
|
||||||
|
professor(p0).
|
||||||
|
professor(p1).
|
||||||
|
professor(p2).
|
||||||
|
professor(p3).
|
||||||
|
professor(p4).
|
||||||
|
professor(p5).
|
||||||
|
professor(p6).
|
||||||
|
professor(p7).
|
||||||
|
professor(p8).
|
||||||
|
|
||||||
bayes abi(K)::[h,m,l] ; abi_table ; [professor(K)].
|
bayes abi(K)::[h,m,l] ; abi_table ; [professor(K)].
|
||||||
|
|
||||||
bayes pop(K)::[h,m,l], abi(K) ; pop_table ; [professor(K)].
|
bayes pop(K)::[h,m,l], abi(K) ; pop_table ; [professor(K)].
|
||||||
@ -32,16 +42,6 @@ goal_list([
|
|||||||
abi(p6,_),
|
abi(p6,_),
|
||||||
pop(p7,_)]).
|
pop(p7,_)]).
|
||||||
|
|
||||||
professor(p0).
|
|
||||||
professor(p1).
|
|
||||||
professor(p2).
|
|
||||||
professor(p3).
|
|
||||||
professor(p4).
|
|
||||||
professor(p5).
|
|
||||||
professor(p6).
|
|
||||||
professor(p7).
|
|
||||||
professor(p8).
|
|
||||||
|
|
||||||
timed_main :-
|
timed_main :-
|
||||||
statistics(runtime, _),
|
statistics(runtime, _),
|
||||||
main(Lik),
|
main(Lik),
|
||||||
|
Reference in New Issue
Block a user