Dekker1/MiniZinc-Auto-Tabling-Models
Archived
1
0
Fork 0
Code

Update black hole patience model to match experiments

Browse Source
This commit is contained in:
Jip J. Dekker 2016-11-22 21:12:39 +01:00
parent f79102e346
commit b7609c66f9
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
black-hole/black-hole.mzn
View File

@ -90,10 +90,10 @@ array[1..52] of var 1..52: y;
constraint x[1] == 1;
% Consecutive cards match
predicate rank_apart(var 1..52: a, var 1..52: b) ::presolve
= abs( (a - b) mod 13 ) in {1,12};
predicate adjacent(var 1..52: a, var 1..52: b) ::presolve
= ((x-y) in {13*i+1 | i in -4..3} union {13*i-1 | i in -3..4}) :: domain;
constraint forall(i in 1..51) ( rank_apart(x[i], x[i+1]) );
constraint forall(i in 1..51) ( adjacent(x[i], x[i+1]) );
% Link x and y
constraint inverse(x, y) :: domain;