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

improve CLP support

Browse Source
This commit is contained in:
Vitor Santos Costa
2013-09-11 12:30:31 +01:00
parent 52c0d8a8de
commit 99ab8e541b
4 changed files with 320 additions and 97 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
library/gecode/clp_examples/photo.yap
View File

@@ -21,25 +21,25 @@
% 5 people want to have a photograph together, but they have preferences.
photo(Ex, People, Amount) :-
db(Ex, People, Preferences),
ex(Ex, People, Preferences),
length(People, Len),
Len0 is Len-1,
People ins 0..Len0,
all_distinct(People),
% Bools are the satisfied constraints
maplist(preferences, Preferences, Bools),
maplist(preference_satisfied, Preferences, Bools),
length(Preferences, PLen),
Amount in 0..PLen,
sum( Bools, #= , Amount ),
sum( Bools ) #= Amount,
% add all satisfied constraints
maximize(Amount),
labeling([], People).
%reification, use with care
preferences(X-Y, B) :-
preference_satisfied(X-Y, B) :-
abs(X - Y) #= 1 #<==> B.
db(s,[Alice,Bob,Carl,Deb,Evan], [Alice-Carl,
ex(s,[Alice,Bob,Carl,Deb,Evan], [Alice-Carl,
Carl-Deb,
Deb-Alice,
Evan-Alice,
@@ -48,7 +48,7 @@ db(s,[Alice,Bob,Carl,Deb,Evan], [Alice-Carl,
Deb-Evan,
Evan-Bob]).
db(l,[Betty,Chris,Donald,Fred,Gary,Mary,Paul,Peter,Susan],
ex(l,[Betty,Chris,Donald,Fred,Gary,Mary,Paul,Peter,Susan],
[Betty-Donald,
Betty-Gary,
Betty-Peter,