Jip J. Dekker
fad1b07018
git-subtree-dir: software/minizinc git-subtree-split: 4f10c82056ffcb1041d7ffef29d77a7eef92cf76
11 lines
350 B
MiniZinc
11 lines
350 B
MiniZinc
include "roots.mzn";
|
|
|
|
/** @group globals
|
|
Returns \a s such that \a x[\p i] in \a t for all \p i in \a s
|
|
*/
|
|
function var set of int: roots(array[int] of var int: x,
|
|
var set of int: t) :: promise_total =
|
|
let { var set of index_set(x): s ::is_defined_var;
|
|
constraint roots(x,s,t) ::defines_var(s); }
|
|
in s;
|