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

deb

Browse Source
This commit is contained in:
Vitor Santos Costa
2019-02-04 15:10:06 +00:00
parent d874dc5857
commit cb4d17cb4f
3 changed files with 26 additions and 58 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
regression/cyclics.yap
View File

@@ -18,7 +18,8 @@ main :-
writeln('-----------------------'),
fail.
main :-
main((rational_term_to_tree(X,A,B,[]),writeln(A:B)), X).
main((rational_term_to_tree(X,A,B,[]), numbervars(A+B,1,_),
writeln((A->B))), X).
main.
main(G, X) :-
@@ -51,6 +52,8 @@ d(X) :- X= f(X,[X,X]).
d(X) :- X= f(X,[X,g(X)]).
d(X) :- X= f(_,X/[X]).
d(X) :- X= f(_,A/[A]), A= f(X,[X,g(X)]).
d(X) :- X= f(_,A/[A]), A= f(X,[A,g(X)]).
d(X) :- X= f(_,A/[A]), A= f(B,[X,g(A)]), B=[C|B], C=[X].
end :- writeln('....'), fail.