Jip J. Dekker
fad1b07018
git-subtree-dir: software/minizinc git-subtree-split: 4f10c82056ffcb1041d7ffef29d77a7eef92cf76
12 lines
525 B
MiniZinc
12 lines
525 B
MiniZinc
include "global_cardinality.mzn";
|
|
|
|
/** @group globals.counting
|
|
Returns the number of occurrences of \a cover[\p i] in \a x.
|
|
*/
|
|
function array[$Y] of var int: global_cardinality(array[$X] of var int: x,
|
|
array[$Y] of int: cover) :: promise_total =
|
|
let { array[int] of int: cover1d = array1d(cover);
|
|
array[index_set(cover1d)] of var 0..length(x): counts;
|
|
constraint global_cardinality(array1d(x),array1d(cover),array1d(counts)) } in
|
|
arrayXd(cover,counts);
|