Merge pull request #2689 from triska/weighted_maybe

introduce and use weighted_maybe/2
mthom · Dec 14, 2024 · a9a7777 · a9a7777
2 parents 5f035ec + abe1f37
commit a9a7777
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/src/lib/clpb.pl b/src/lib/clpb.pl
@@ -1550,11 +1550,15 @@
         { node_var_low_high(Node, Var, Low, High),
           bdd_count(Node, VNum, Total),
           bdd_count(Low, VNum, LCount) },
-        (   { maybe(LCount, Total) } ->
+        (   { weighted_maybe(LCount, Total) } ->
             [Var=0], random_bindings(VNum, Low)
         ;   [Var=1], random_bindings(VNum, High)
         ).
 
+weighted_maybe(K, N) :-
+        random_integer(0, N, X),
+        X < K.
+
 /* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    Find solutions with maximum weight.
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */