Jip J. Dekker
fad1b07018
git-subtree-dir: software/minizinc git-subtree-split: 4f10c82056ffcb1041d7ffef29d77a7eef92cf76
14 lines
638 B
MiniZinc
14 lines
638 B
MiniZinc
include "arg_max.mzn";
|
|
|
|
predicate fzn_writes_seq_reif(array[int] of var int: I, array[int] of var int: P,
|
|
array[int] of var int: V, array[int] of var int: O,
|
|
var bool: b) =
|
|
b <-> forall (i in index_set(I)) (
|
|
let {
|
|
array[1..length(V)+1] of var int: Vi = array1d(1..length(V)+1, reverse(V) ++ [I[i]]);
|
|
array[1..length(V)+1] of var bool: Pi = array1d(1..length(V)+1, reverse([P[j] == i | j in index_set(V)]) ++ [true]);
|
|
} in O[i] = Vi[arg_max(Pi)]
|
|
);
|
|
|
|
%-----------------------------------------------------------------------------%
|