Jip J. Dekker
fad1b07018
git-subtree-dir: software/minizinc git-subtree-split: 4f10c82056ffcb1041d7ffef29d77a7eef92cf76
10 lines
370 B
MiniZinc
10 lines
370 B
MiniZinc
include "count.mzn";
|
|
|
|
/** @group globals.counting
|
|
Returns the number of occurrences of \a y in \a x.
|
|
*/
|
|
function var int: count(array[$X] of var int: x, var int: y) ::promise_total =
|
|
let { var 0..length(x): c::is_defined_var; constraint count(array1d(x),y,c)::defines_var(c); } in c;
|
|
|
|
function int: count(array[$X] of int: x, int: y) = count(i in array1d(x))(i=y);
|