12 lines
270 B
MiniZinc
12 lines
270 B
MiniZinc
int: n;
|
|
array[0..n-1] of var 0..n: s;
|
|
|
|
constraint forall(i in 0..n-1) (
|
|
s[i] = (sum(j in 0..n-1)(bool2int(s[j]=i))));
|
|
% redundant
|
|
constraint sum(i in 0..n-1)(s[i]) = n;
|
|
constraint sum(i in 0..n-1)(s[i] * i) = n;
|
|
solve satisfy;
|
|
|
|
output [ "s = ", show(s), ";\n" ] ;
|