start with pfl learning.

2012-06-22 19:00:12 +01:00
parent 5fe052a3ef
commit 87e0b67e76
10 changed files with 141 additions and 14 deletions
--- a/packages/CLPBN/learning/learn_utils.yap
+++ b/packages/CLPBN/learning/learn_utils.yap
@@ -36,8 +36,10 @@ run_all(M:Gs) :-
 	run_all(Gs,M).

 run_all([],_).
+run_all([example(Gs0)|Gs],M) :-
+	run_all(Gs0,M),
+	run_all(Gs,M).
 run_all([G|Gs],M) :-
-%	(G = _:ge(ybr136w,t8,23,-1) -> nb_getval(clpbn_tables, Tab), writeln(Tab) ; true ),
 	( call(M:G) -> true ;  throw(bad_call(M:G)) ),
 	run_all(Gs,M).