Jip J. Dekker
fad1b07018
git-subtree-dir: software/minizinc git-subtree-split: 4f10c82056ffcb1041d7ffef29d77a7eef92cf76
15 lines
441 B
MiniZinc
15 lines
441 B
MiniZinc
include "alldifferent.mzn";
|
|
include "increasing.mzn";
|
|
|
|
predicate fzn_sort(array[int] of var int: x, array[int] of var int: y) =
|
|
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)),
|
|
array[lx..ux] of var ly..uy: p
|
|
} in
|
|
forall(i in index_set(x)) ( y[p[i]] == x[i] ) /\
|
|
alldifferent(p) /\
|
|
increasing(y);
|