35 lines
2.5 KiB
MiniZinc
35 lines
2.5 KiB
MiniZinc
predicate fzn_all_different_int(array [int] of var int: x);
|
|
var 2..9: INT____00001 :: is_defined_var :: var_is_introduced;
|
|
var 3..10: INT____00002 :: is_defined_var :: var_is_introduced;
|
|
var 4..11: INT____00003 :: is_defined_var :: var_is_introduced;
|
|
var 5..12: INT____00004 :: is_defined_var :: var_is_introduced;
|
|
var 6..13: INT____00005 :: is_defined_var :: var_is_introduced;
|
|
var 7..14: INT____00006 :: is_defined_var :: var_is_introduced;
|
|
var 8..15: INT____00007 :: is_defined_var :: var_is_introduced;
|
|
var 8..15: INT____00008 :: is_defined_var :: var_is_introduced;
|
|
var 7..14: INT____00009 :: is_defined_var :: var_is_introduced;
|
|
var 6..13: INT____00010 :: is_defined_var :: var_is_introduced;
|
|
var 5..12: INT____00011 :: is_defined_var :: var_is_introduced;
|
|
var 4..11: INT____00012 :: is_defined_var :: var_is_introduced;
|
|
var 3..10: INT____00013 :: is_defined_var :: var_is_introduced;
|
|
var 2..9: INT____00014 :: is_defined_var :: var_is_introduced;
|
|
array [1..8] of var 1..8: q :: output_array([1..8]);
|
|
constraint fzn_all_different_int([INT____00008, INT____00009, INT____00010, INT____00011, INT____00012, INT____00013, INT____00014, q[8]]);
|
|
constraint fzn_all_different_int([q[1], INT____00001, INT____00002, INT____00003, INT____00004, INT____00005, INT____00006, INT____00007]);
|
|
constraint fzn_all_different_int(q);
|
|
constraint int_lin_eq([-1, 1], [INT____00001, q[2]], -1) :: defines_var(INT____00001);
|
|
constraint int_lin_eq([-1, 1], [INT____00002, q[3]], -2) :: defines_var(INT____00002);
|
|
constraint int_lin_eq([-1, 1], [INT____00003, q[4]], -3) :: defines_var(INT____00003);
|
|
constraint int_lin_eq([-1, 1], [INT____00004, q[5]], -4) :: defines_var(INT____00004);
|
|
constraint int_lin_eq([-1, 1], [INT____00005, q[6]], -5) :: defines_var(INT____00005);
|
|
constraint int_lin_eq([-1, 1], [INT____00006, q[7]], -6) :: defines_var(INT____00006);
|
|
constraint int_lin_eq([-1, 1], [INT____00007, q[8]], -7) :: defines_var(INT____00007);
|
|
constraint int_lin_eq([-1, 1], [INT____00008, q[1]], -7) :: defines_var(INT____00008);
|
|
constraint int_lin_eq([-1, 1], [INT____00009, q[2]], -6) :: defines_var(INT____00009);
|
|
constraint int_lin_eq([-1, 1], [INT____00010, q[3]], -5) :: defines_var(INT____00010);
|
|
constraint int_lin_eq([-1, 1], [INT____00011, q[4]], -4) :: defines_var(INT____00011);
|
|
constraint int_lin_eq([-1, 1], [INT____00012, q[5]], -3) :: defines_var(INT____00012);
|
|
constraint int_lin_eq([-1, 1], [INT____00013, q[6]], -2) :: defines_var(INT____00013);
|
|
constraint int_lin_eq([-1, 1], [INT____00014, q[7]], -1) :: defines_var(INT____00014);
|
|
solve :: int_search(q, first_fail, indomain_min, complete) satisfy;
|