Jip J. Dekker
fad1b07018
git-subtree-dir: software/minizinc git-subtree-split: 4f10c82056ffcb1041d7ffef29d77a7eef92cf76
18 lines
470 B
MiniZinc
18 lines
470 B
MiniZinc
% ignore
|
|
int:n;
|
|
set of int: NODES = 1..n;
|
|
array [NODES,NODES] of bool: adj;
|
|
bool: t = true;
|
|
bool: f = false;
|
|
n = 4;
|
|
adj = [| false, true, true, false
|
|
| true, false, true, false
|
|
| true, true, false, true
|
|
| false, false, true, false |];
|
|
solve satisfy;
|
|
int: count = sum ([ 1 | i,j in NODES where i < j /\ adj[i,j],
|
|
k in NODES where trace("+", j < k /\ adj[i,k] /\ adj[j,k])]);
|
|
|
|
% ignore
|
|
constraint trace("\n",true);
|