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-05 13:59:33 +00:00
parent 4bc0292ad6
commit e5945b8e8b
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
regression/cyclics.yap
View File

@ -12,11 +12,21 @@ main :-
main :- main :-
writeln('-----------------------'), writeln('-----------------------'),
fail. fail.
main :-
main2( (terms:variables_in_term(X, O), writeln(X=O) ), X, L, O).
main :-
writeln('-----------------------'),
fail.
main :- main :-
main2( (terms:new_variables_in_term(L,X, O), writeln(X+L=O) ), X, L, O). main2( (terms:new_variables_in_term(L,X, O), writeln(X+L=O) ), X, L, O).
main :- main :-
writeln('-----------------------'), writeln('-----------------------'),
fail. fail.
main :-
main2( (terms:variables_within_term(L,X, O), writeln(X+L=O) ), X, L, O).
main :-
writeln('-----------------------'),
fail.
main :- main :-
main( writeln(X), X). main( writeln(X), X).
main :- main :-
@ -70,6 +80,8 @@ end :- writeln('....'), fail.
e(X,Y) :- X = t(_A,B,_C,D), Y = [B,E]. e(X,Y) :- X = t(_A,B,_C,D), Y = [B,E].
e(X,Y) :- X = t(_A,_B,_C,_D), Y = [_,_E]. e(X,Y) :- X = t(_A,_B,_C,_D), Y = [_,_E].
e(X,Y) :- X = t(A,_B,C,_D), Y = [ A,C]. e(X,Y) :- X = t(A,_B,C,_D), Y = [ A,C].
e(X,Y) :- X = t(A,[X,_D]), Y = [A,_C,_E].
e(X,Y) :- X = t(A,[X,C]), Y = [A,C,_E].
e(X,Y) :- X = t(A,X,_B,[X,C,_D]), Y = [A,C,E]. e(X,Y) :- X = t(A,X,_B,[X,C,_D]), Y = [A,C,E].