求解器picat
(v. 2.6#2
) 指出示例模型knights.mzn
包含在 minizinc 存储库中,因此复制并粘贴:
% RUNS ON mzn20_fd
% RUNS ON mzn-fzn_fd
% RUNS ON mzn20_mip
% knights.mzn
% Ralph Becket
% vim: ft=zinc ts=4 sw=4 et
% Tue Aug 26 14:24:28 EST 2008
%
% Find a closed knight's tour of a chessboard (every square is visited exactly
% once, the tour forms a loop).
include "globals.mzn";
% n is the length of side of the chessboard.
%
int: n = 6;
% The ith square (r, c) on the path is given by p[i] = (r - 1) * n + c.
%
int: nn = n * n;
set of int: sq = 1..nn;
array [sq] of var sq: p;
set of int: row = 1..n;
set of int: col = 1..n;
% Break some symmetry by specifying the first and last moves.
%
constraint p[1] = 1;
constraint p[2] = n + 3;
constraint p[nn] = 2 * n + 2;
% All points along the path must be unique.
%
constraint alldifferent(p);
array [sq] of set of sq: neighbours =
[ { n * (R - 1) + C
|
i in 1..8,
R in {R0 + [-1, -2, -2, -1, 1, 2, 2, 1][i]},
C in {C0 + [-2, -1, 1, 2, 2, 1, -1, -2][i]}
where R in row /\ C in col
}
| R0 in row, C0 in col
];
constraint forall (i in sq where i > 1) (p[i] in neighbours[p[i - 1]]);
solve
:: int_search(
p,
input_order,
indomain_min,
complete
)
satisfy;
% It has been observed that Warnsdorf's heuristic of choosing the next
% square as the one with the fewest remaining neighbours leads almost
% directly to a solution. How might we express this in MiniZinc?
output ["p = " ++ show(p) ++ ";\n"];
% Invert the path to show the tour.
%
% array [sq] of var sq: q;
%
% constraint forall (i in sq) (q[p[i]] = i);
%
% output [ show(q[i]) ++ if i mod n = 0 then "\n" else " " endif
% | i in sq
% ] ++
% [ "\n"
% ];
无法满足:
~$ mzn2fzn knights.mzn
~$ picat tools/picat/fzn_picat_cp.pi knights.fzn
% solving(knights.fzn)
% loading knights.fzn
=====UNSATISFIABLE=====
~$ mzn2fzn knights.mzn
~$ picat tools/picat/fzn_picat_sat.pi knights.fzn
% solving(knights.fzn)
% loading knights.fzn
=====UNSATISFIABLE=====
除了基于(v. ) 之外的所有其他MiniZinc
求解器都告诉我模型是可满足的。fzn2smt
Yices
2.2.1
问:这是软件中的错误还是不支持的公式的样本?