Jip J. Dekker
fad1b07018
git-subtree-dir: software/minizinc git-subtree-split: 4f10c82056ffcb1041d7ffef29d77a7eef92cf76
37 lines
1.3 KiB
MiniZinc
37 lines
1.3 KiB
MiniZinc
include "fzn_count_eq.mzn";
|
|
include "fzn_count_eq_par.mzn";
|
|
include "fzn_count_eq_reif.mzn";
|
|
include "fzn_count_eq_par_reif.mzn";
|
|
|
|
/** @group globals.counting
|
|
Constrains \a c to be the number of occurrences of \a y in \a x.
|
|
*/
|
|
predicate count_eq(array[$X] of var int: x, var int: y, var int: c) =
|
|
fzn_count_eq(array1d(x),y,c);
|
|
|
|
/** @group globals.counting
|
|
Constrains \a c to be the number of occurrences of \a y in \a x.
|
|
*/
|
|
predicate count_eq(array[$X] of var int: x, int: y, int: c) =
|
|
fzn_count_eq_par(array1d(x),y,c);
|
|
|
|
predicate count_eq(array[$X] of int: x, int: y, int: c) =
|
|
c=count_eq(x,y);
|
|
|
|
/** @group globals.counting
|
|
Returns the number of occurrences of \a y in \a x.
|
|
*/
|
|
function var int: count_eq(array[$X] of var int: x, var int: y) ::promise_total =
|
|
let { var 0..length(x): c; constraint fzn_count_eq(array1d(x),y,c); } in c;
|
|
|
|
function int: count_eq(array[$X] of int: x, int: y) =
|
|
sum(v in array1d(x))(v = y);
|
|
|
|
predicate count_eq_reif(array[$X] of var int: x, var int: y, var int: c, var bool: b) =
|
|
fzn_count_eq_reif(array1d(x), y, c, b);
|
|
|
|
predicate count_eq_reif(array[$X] of var int: x, int: y, int: c, var bool: b) =
|
|
fzn_count_eq_par_reif(array1d(x), y, c, b);
|
|
|
|
%-----------------------------------------------------------------------------%
|