Jip J. Dekker
f2a1c4e389
git-subtree-dir: software/mza git-subtree-split: f970a59b177c13ca3dd8aaef8cc6681d83b7e813
23 lines
803 B
MiniZinc
23 lines
803 B
MiniZinc
include "fzn_count_eq.mzn";
|
|
include "fzn_count_eq_reif.mzn";
|
|
|
|
/** @group globals.counting
|
|
Constrains \a c to be the number of occurrences of \a y in \a x.
|
|
*/
|
|
predicate count_eq(array[int] of var int: x, var int: y, var int: c) =
|
|
fzn_count_eq(x,y,c);
|
|
|
|
/** @group globals.counting
|
|
Returns the number of occurrences of \a y in \a x.
|
|
*/
|
|
function var int: count_eq(array[int] of var int: x, var int: y) ::promise_total =
|
|
let { var 0..length(x): c; constraint fzn_count_eq(x,y,c); } in c;
|
|
|
|
function int: count_eq(array[int] of int: x, int: y) =
|
|
sum(i in index_set(x))(x[i] = y);
|
|
|
|
predicate count_eq_reif(array[int] of var int: x, var int: y, var int: c, var bool: b) =
|
|
fzn_count_eq_reif(x, y, c, b);
|
|
|
|
%-----------------------------------------------------------------------------%
|