50 lines
2.3 KiB
MiniZinc
50 lines
2.3 KiB
MiniZinc
predicate fzn_all_different_int(array [int] of var int: x);
|
|
predicate count(array [int] of var int: x, var int: y, var int: c);
|
|
predicate fixed_fzn_cumulative(array [int] of var int: s, array [int] of int: d, array [int] of int: r, int: b);
|
|
predicate global_cardinality(array [int] of var int: x, array [int] of int: cover, array [int] of var int: counts);
|
|
predicate maximum_int(var int: m, array [int] of var int: x);
|
|
predicate minimum_int(var int: m, array [int] of var int: x);
|
|
predicate sliding_sum(int: low, int: up, int: seq, array [int] of var int: vs);
|
|
predicate sort(array [int] of var int: x, array [int] of var int: y);
|
|
predicate table_bool(array [int] of var bool: x, array [int, int] of bool: t);
|
|
predicate table_int(array [int] of var int: x, array [int, int] of int: t);
|
|
predicate var_fzn_cumulative(array [int] of var int: s, array [int] of int: d, array [int] of int: r, var int: b);
|
|
var 0..9999999: INT____00009 :: is_defined_var :: var_is_introduced;
|
|
var 0..9: a;
|
|
var 0..999: ant;
|
|
var 0..9999: ants;
|
|
var 0..9: b;
|
|
var 0..9999: bees;
|
|
var 0..9999999: beetles :: output_var = INT____00009;
|
|
var 0..9: e;
|
|
var 0..9: f;
|
|
var 0..9999: flea;
|
|
var 0..99999: fleas;
|
|
var 0..99999: flies;
|
|
var 0..9: g;
|
|
var 0..9999: gnat;
|
|
var 0..9: i;
|
|
var 0..9: l;
|
|
var 0..9: n;
|
|
var 0..9: s;
|
|
var 0..99999: snail;
|
|
var 0..9: t;
|
|
constraint fzn_all_different_int([a, b, e, f, g, i, l, n, s, t]);
|
|
constraint int_lin_eq([-1, 100, 10, 1], [ant, a, n, t], 0);
|
|
constraint int_lin_eq([-1, 1000, 110, 1], [bees, b, e, s], 0);
|
|
constraint int_lin_eq([-1, 1, 10, 1000, 100], [flea, a, e, f, l], 0);
|
|
constraint int_lin_eq([-1, 10, 1000, 100, 1], [gnat, a, g, n, t], 0);
|
|
constraint int_lin_eq([-1, 1000, 100, 1, 10], [ants, a, n, s, t], 0);
|
|
constraint int_lin_eq([-1, 10, 100, 10000, 1000, 1], [fleas, a, e, f, l, s], 0);
|
|
constraint int_lin_eq([-1, 10, 10000, 100, 1000, 1], [flies, e, f, i, l, s], 0);
|
|
constraint int_lin_eq([-1, 100, 10, 1, 1000, 10000], [snail, a, i, l, n, s], 0);
|
|
constraint int_lin_eq([-1, 1000000, 110010, 100, 1, 1000], [INT____00009, b, e, l, s, t], 0) :: defines_var(INT____00009);
|
|
constraint int_lin_le([-18, -1, 18, 1], [ants, gnat, flies, flea], -1);
|
|
constraint int_lin_le([-4, -1, 8, 1], [bees, snail, fleas, ant], -1);
|
|
constraint int_ne(a, 0);
|
|
constraint int_ne(b, 0);
|
|
constraint int_ne(f, 0);
|
|
constraint int_ne(g, 0);
|
|
constraint int_ne(s, 0);
|
|
solve satisfy;
|