このディレクトリの索引
#  
#  極く簡単な filter/2 の5題目です
#  


filter(L1,L2) :-
        append(A,D1,C,L1),
        置換(D1,D2),
        filter(A,D2,C,L2).

filter(A,D2,C,L2) :-
        append(A,D2,C,L2).
filter(A,D2,C,L2) :-
        filter(C,L2_2),
        append(A,D2,L2_2,L2).

置換([c,d],[x]).
置換([c],[y,y]).
置換([d,e],[z]).

append([],L1,L2,L) :-
        append(L1,L2,L).
append([A|R1],L1,L2,[A|R]) :-
        append(R1,L1,L2,R).