34 lines
1.0 KiB
MiniZinc
34 lines
1.0 KiB
MiniZinc
/***
|
|
!Test
|
|
expected:
|
|
- !Result
|
|
solution: !Solution
|
|
among_avi1: [4, 5, 5, 6, 6, 6, 7, 7, 7, 7]
|
|
among_avi2: [4, 5, 5, 6, 6, 6, 7, 7, 8, 8]
|
|
among_vi: 7
|
|
***/
|
|
|
|
include "among.mzn";
|
|
|
|
%-----------------------------------------------------------------------------%
|
|
% among
|
|
%-----------------------------------------------------------------------------%
|
|
var -100..100: among_vi ::add_to_output;
|
|
array[1..10] of var -100..100: among_avi1 ::add_to_output =
|
|
[4, 5, 5, 6, 6, 6, 7, 7, 7, 7];
|
|
array[1..10] of var -100..100: among_avi2 ::add_to_output =
|
|
[4, 5, 5, 6, 6, 6, _, _, 8, 8];
|
|
|
|
% Testing it three ways, with different args unfixed each time.
|
|
constraint among(among_vi, among_avi1, {6,7}); % 1st arg unfixed -> 7
|
|
constraint among(5, among_avi2, {6,7}); % 2nd arg unfixed -> [...]
|
|
constraint forall(i in 7..10) ( among_avi2[i] != 6 );
|
|
|
|
solve satisfy;
|
|
|
|
output [
|
|
"among_avi1 = array1d(1..10, ", show(among_avi1), ");\n",
|
|
"among_avi2 = array1d(1..10, ", show(among_avi2), ");\n",
|
|
"among_vi = ", show(among_vi), ";\n"
|
|
];
|