This commit is contained in:
Vitor Santos Costa
2019-02-05 10:31:17 +00:00
parent 3b8475f882
commit 4bc0292ad6
3 changed files with 58 additions and 53 deletions

View File

@@ -1,6 +1,6 @@
%, copy_term(X,Y), writeln('....'), writeln(X), writeln(Y).
:- initialization(main).
:- linitialization(main).
main :-
main( cyclic_term(X), X).
@@ -13,7 +13,12 @@ main :-
writeln('-----------------------'),
fail.
main :-
main( writeln(X), X).
main2( (terms:new_variables_in_term(L,X, O), writeln(X+L=O) ), X, L, O).
main :-
writeln('-----------------------'),
fail.
main :-
main( writeln(X), X).
main :-
writeln('-----------------------'),
fail.
@@ -26,6 +31,11 @@ main(G, X) :-
d(X),
m(G).
main2(G, X, L, O) :-
e(X,L),
m(G).
m( G ) :-
G,
!,
@@ -57,6 +67,12 @@ d(X) :- X= f(_,A/[A]), A= f(B,[X,g(A)]), B=[C|B], C=[X].
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 = [_,_E].
e(X,Y) :- X = t(A,_B,C,_D), Y = [A,C].
e(X,Y) :- X = t(A,X,_B,[X,C,_D]), Y = [A,C,E].
a(no, no).
a(no, no).
a(yes, yes).