Jip J. Dekker
f2a1c4e389
git-subtree-dir: software/mza git-subtree-split: f970a59b177c13ca3dd8aaef8cc6681d83b7e813
27 lines
505 B
MiniZinc
27 lines
505 B
MiniZinc
% RUNS ON mzn20_fd
|
|
% RUNS ON mzn-fzn_fd
|
|
% RUNS ON mzn20_mip
|
|
% Test assertions that should succeed.
|
|
|
|
array [1..10] of int: a =
|
|
[i | i in 1..10];
|
|
|
|
% Predicate style assertion.
|
|
%
|
|
constraint assert(forall (i in 1..9) (a[i] < a[i + 1]), "a not increasing");
|
|
|
|
% Function style assertion.
|
|
%
|
|
test even(int: x) = (x mod 2 = 0);
|
|
|
|
array [1..10] of int: b =
|
|
[assert(even(2 * a[i]), "that's odd...", 2 * a[i]) | i in 1..10];
|
|
|
|
var 1..10: x;
|
|
|
|
constraint b[x] = max(b);
|
|
|
|
solve satisfy;
|
|
|
|
output ["x = ", show(x), "\n"];
|