Jip J. Dekker
fad1b07018
git-subtree-dir: software/minizinc git-subtree-split: 4f10c82056ffcb1041d7ffef29d77a7eef92cf76
27 lines
1.0 KiB
MiniZinc
27 lines
1.0 KiB
MiniZinc
%-----------------------------------------------------------------------------%
|
|
% Requires that the array 'x' is lexicographically less than or equal to
|
|
% array 'y'. Compares them from first to last element, regardless of indices
|
|
%-----------------------------------------------------------------------------%
|
|
|
|
predicate fzn_lex_lesseq_bool_reif(array[int] of var bool: x,
|
|
array[int] of var bool: y,
|
|
var bool: c) =
|
|
let { int: lx = min(index_set(x)),
|
|
int: ux = max(index_set(x)),
|
|
int: ly = min(index_set(y)),
|
|
int: uy = max(index_set(y)),
|
|
int: size = min(ux - lx, uy - ly),
|
|
array[0..size+1] of var bool: b }
|
|
in
|
|
(c <-> b[0])
|
|
/\
|
|
forall(i in 0..size) (
|
|
b[i] = ( x[lx + i] <= y[ly + i]
|
|
/\
|
|
(x[lx + i] < y[ly + i] \/ b[i+1]) )
|
|
)
|
|
/\
|
|
b[size + 1] = (ux - lx <= uy - ly);
|
|
|
|
%-----------------------------------------------------------------------------%
|