fixes
This commit is contained in:
@@ -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).
|
||||
|
Reference in New Issue
Block a user