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

Merge pull request #1754 from triska/dif

Browse Source 
ENHANCED: more compact definition of dif/2
This commit is contained in:
Mark Thom
2023-03-08 21:48:34 +01:00
committed by GitHub
parent 9288dcabe9 884b0ca10e
commit cba09d4ea1
1 changed files with 3 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
src/lib/dif.pl
View File

@@ -59,16 +59,13 @@ verify_attributes(Var, Value, Goals) :-
dif(X, Y) :- dif(X, Y) :-
X \== Y, X \== Y,
( X \= Y -> true ( X \= Y -> true
; ( term_variables(X, XVars), ; term_variables(dif(X,Y), Vars),
term_variables(Y, YVars), dif_set_variables(Vars, X, Y)
dif_set_variables(XVars, X, Y),
dif_set_variables(YVars, X, Y)
)
). ).
gather_dif_goals(_, []) --> []. gather_dif_goals(_, []) --> [].
gather_dif_goals(V, [(X \== Y) | Goals]) --> gather_dif_goals(V, [(X \== Y) | Goals]) -->
( { term_variables(X, [V0 | _]), ( { term_variables(X-Y, [V0 | _]),
V == V0 } -> V == V0 } ->
[dif:dif(X, Y)] [dif:dif(X, Y)]
; [] ; []