diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

clp like interface to gecode

Browse Source
This commit is contained in:
Vitor Santos Costa
2013-09-09 23:48:44 +01:00
parent cda2e3bffe
commit eadfdbd646
5 changed files with 286 additions and 48 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
library/gecode/clp_examples/queens.yap
View File

@@ -1,12 +1,28 @@
:- use_module(library(gecode/clpfd)).
:- use_module(library(maplist)).
:- [ge_clpfd].
queens(N, Queens) :-
length(Queens, N),
Queens ins 1..9,
Queens ins 1..N,
all_distinct(Queens),
lconstrain( Queens, 0),
foldl(inc, Queens, Inc, 0, _), % [0, 1, 2, .... ]
foldl(dec, Queens, Dec, 0, _), % [0, -1, -2, ... ]
all_distinct(Inc,Queens),
all_distinct(Dec,Queens),
labeling([], Queens).
inc(_, I0, I0, I) :-
I is I0+1.
dec(_, I0, I0, I) :-
I is I0-1.
lqueens(N, Queens) :-
length(Queens, N),
Queens ins 1..N,
all_distinct(Queens),
lconstrain( Queens, 0 ),
labeling([], Queens).
lconstrain([], _).
@@ -19,3 +35,4 @@ constrain(Q, I, R, J, J1) :-
J1 is J+1,
Q + I #\= R + J,
Q - I #\= R - J.