rishi/scryer-prolog
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge pull request #682 from triska/dif_improvements

Browse Source 
Improvements to dif/2
This commit is contained in:
Mark Thom
2020-08-22 20:17:32 -03:00
committed by GitHub
parent 62c9b8390b cc77ef680d
commit cdeb07520f
1 changed files with 11 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
src/lib/dif.pl
View File

@@ -38,15 +38,20 @@ verify_attributes(Var, Value, Goals) :-
% Probably the world's worst dif/2 implementation. I'm open to % Probably the world's worst dif/2 implementation. I'm open to
% suggestions for improvement. % suggestions for improvement.
dif(X, Y) :- X \== Y, dif(X, Y) :-
( term_variables(X, XVars), term_variables(Y, YVars), X \== Y,
dif_set_variables(XVars, X, Y), ( X \= Y -> true
dif_set_variables(YVars, X, Y) ; ( term_variables(X, XVars), term_variables(Y, YVars),
). dif_set_variables(XVars, X, Y),
dif_set_variables(YVars, X, Y)
)
).
gather_dif_goals([]) --> []. gather_dif_goals([]) --> [].
gather_dif_goals([(X \== Y) | Goals]) --> gather_dif_goals([(X \== Y) | Goals]) -->
[dif(X, Y)], ( { X \= Y } -> []
; [dif(X, Y)]
),
gather_dif_goals(Goals). gather_dif_goals(Goals).
attribute_goals(X) --> attribute_goals(X) -->