this repo has no description
at develop 441 B view raw
1include "alldifferent.mzn"; 2include "increasing.mzn"; 3 4predicate fzn_sort(array[int] of var int: x, array[int] of var int: y) = 5 let { 6 int: lx = min(index_set(x)), 7 int: ux = max(index_set(x)), 8 int: ly = min(index_set(y)), 9 int: uy = max(index_set(y)), 10 array[lx..ux] of var ly..uy: p 11 } in 12 forall(i in index_set(x)) ( y[p[i]] == x[i] ) /\ 13 alldifferent(p) /\ 14 increasing(y);