10/01/29 20:34:53
>>512
% Prolog
test2([],[]).
test2([A|R1],[A|R2]) :-
ならびの削除(A,R1,R3),
test2(R3,R2).
ならびから削除(_,[],[]).
ならびから削除(A,[A|R1],R2) :- ならびから削除(A,R1,R2).
ならびから削除(A,[B|R1],[B|R2]) :- \+(A=B),ならびから削除(A,R1,R2).
10/01/29 20:34:53
>>512
% Prolog
test2([],[]).
test2([A|R1],[A|R2]) :-
ならびの削除(A,R1,R3),
test2(R3,R2).
ならびから削除(_,[],[]).
ならびから削除(A,[A|R1],R2) :- ならびから削除(A,R1,R2).
ならびから削除(A,[B|R1],[B|R2]) :- \+(A=B),ならびから削除(A,R1,R2).