Jip J. Dekker
f2a1c4e389
git-subtree-dir: software/mza git-subtree-split: f970a59b177c13ca3dd8aaef8cc6681d83b7e813
10 lines
411 B
MiniZinc
10 lines
411 B
MiniZinc
predicate fzn_writes(array[int] of var int: I, array[int] of var int: P,
|
|
array[int] of var int: V, array[int] of var int: O) =
|
|
forall(j in index_set(P))(O[P[j]] = V[j]) /\
|
|
forall(i in index_set(I))
|
|
(if forall(j in index_set(P))(P[j] != i) then
|
|
O[i] = I[i]
|
|
else true endif);
|
|
|
|
%-----------------------------------------------------------------------------%
|