Jip J. Dekker
fad1b07018
git-subtree-dir: software/minizinc git-subtree-split: 4f10c82056ffcb1041d7ffef29d77a7eef92cf76
23 lines
837 B
MiniZinc
23 lines
837 B
MiniZinc
include "fzn_write.mzn";
|
|
include "fzn_write_reif.mzn";
|
|
|
|
/** @group globals.array
|
|
Creates a new array \a O from an input array \a I with a change at position \a i to take value \a v
|
|
|
|
\a I is an array of integers
|
|
\a O is an array of integers with same index set as \a I
|
|
\a i is an index for \a I
|
|
\a v is an integer value
|
|
*/
|
|
predicate write(array[int] of var int: I, var int: i, var int: v,
|
|
array[int] of var int: O) =
|
|
assert(index_set(O) = index_set(I),"writet: index set of I must be same as O") /\
|
|
fzn_write(I, i, v, O);
|
|
|
|
function array[int] of var int: write(array[int] of var int: I, var int: i, var int: v) =
|
|
let { array[index_set(I)] of var int: O;
|
|
constraint fzn_write(I,i,v,O); }
|
|
in O;
|
|
|
|
%-----------------------------------------------------------------------------%
|