amalgame/commit
IMPROVED: do not count negative results in most methods selecter
author | Jacco van Ossenbruggen |
---|---|
Tue Aug 26 12:50:13 2014 +0200 | |
committer | Jacco van Ossenbruggen |
Tue Aug 26 12:50:13 2014 +0200 | |
commit | 16ec17d6b555cc97079f3bd3eda46e62ee172bb8 |
tree | c420e30f9a0dc0efd0543e115044a60ffea3c48e |
parent | 75c7096532e983a84b03cca691792b666a9b5044 |
Diff style: patch stat
diff --git a/lib/ag_modules/most_methods.pl b/lib/ag_modules/most_methods.pl index 0610065..e45887a 100644 --- a/lib/ag_modules/most_methods.pl +++ b/lib/ag_modules/most_methods.pl @@ -79,9 +79,15 @@ most_methods(As, Selected, Discarded) :- group_method_count([], []). group_method_count([Align|As], [Count-Align|Ts]) :- Align = align(_,_,Provenance), - findall(M, (member(P,Provenance),memberchk(M,P)), Methods), + findall(M, (member(P,Provenance), + positive_result(M,P)), Methods), length(Methods, Count), group_method_count(As, Ts). - +positive_result(Method, Evidence) :- + memberchk(method(Method), Evidence), + \+ ( memberchk(score(Score), Evidence), + memberchk(result(Result), Score), + Result \= selected + ).