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

fix all_distinct/1 (patch from Markus Triska).

Browse Source
This commit is contained in:
Vitor Santos Costa 2010-03-02 21:35:12 +00:00
parent 145e66063b
commit ca12a4b959
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
library/clp/clpfd.pl
View File

@ -127,6 +127,7 @@
:- expects_dialect(swi). :- expects_dialect(swi).
:- use_module(library(assoc)).
:- use_module(library(apply)). :- use_module(library(apply)).
:- use_module(library(error)). :- use_module(library(error)).
:- use_module(library(lists)). :- use_module(library(lists)).
@ -4382,7 +4383,7 @@ distinct(Vars) :-
LFL =< LFR, LFL =< LFR,
maplist(put_free, FreeRight0), maplist(put_free, FreeRight0),
maximum_matching(FreeLeft), maximum_matching(FreeLeft),
sublist(free_node, FreeRight0, FreeRight), include(free_node, FreeRight0, FreeRight),
maplist(g_g0, FreeLeft), maplist(g_g0, FreeLeft),
phrase(scc(FreeLeft), [s(0,[],g0_successors)], _), phrase(scc(FreeLeft), [s(0,[],g0_successors)], _),
maplist(dfs_used, FreeRight), maplist(dfs_used, FreeRight),