amalgame/commit
fix buggy sampling predicate
| author | Jacco van Ossenbruggen |
|---|---|
| Fri Jan 6 13:55:26 2012 +0100 | |
| committer | Jacco van Ossenbruggen |
| Fri Jan 6 13:55:26 2012 +0100 | |
| commit | 0f2329985a93df6c6fcb4127062074bbc1103ffb |
| tree | 3a0e5cb7a5c8aff184c2b17a363c64abd570a304 |
| parent | b85fe109c08c8ed1671e0afb10f47c5322189edf |
Diff style: patch stat
diff --git a/lib/ag_modules/ag_sample.pl b/lib/ag_modules/ag_sample.pl index 39cf1e1..28279b8 100644 --- a/lib/ag_modules/ag_sample.pl +++ b/lib/ag_modules/ag_sample.pl @@ -20,7 +20,8 @@ selecter(In, Out, _, _, Options) :- randset(Size, Length, RandSet), assert_from_list(Method, In, 1, RandSet, Out). -assert_from_list(_,_,_,[], _). +assert_from_list(_,[],_,_,[]):- !. +assert_from_list(_,_,_,[],[]):- !. assert_from_list(Method, [Head|Tail], Nr, [Rand|RandSet], RandomMaps) :- ( Rand = Nr -> NewRandSet = RandSet,