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

5
library/gecode/clp_examples/send_most_money.yap
View File

@@ -19,7 +19,7 @@
:- use_module(library(gecode/clpfd)).
% S E N D
% + M O R E
% + M O S T
% ---------
% M O N E Y
send_most_money(Letters, Money) :-
@@ -30,8 +30,7 @@ send_most_money(Letters, Money) :-
S #\= 0,
all_distinct(Letters),
1000*S + 100*E + 10*N + D +
1000*M + 100*O + 10*S + T #=
10000*M + 1000*O + 100*N + 10*E + Y,
1000*M + 100*O + 10*S + T #= Money,
10000*M + 1000*O + 100*N + 10*E + Y #= Money,
maximize(Money),
labeling([], Letters).