09/07/04 06:55:43
>>352
% Prolog ' は要らなかった。
t352 :-
get_chars('url.txt',Chars),
t352(Chars,Chars2),
put_chars('result.txt',Chars2).
t352([],[]) :- !.
t352([h,t,t,p,:,/,/|R1],[h,t,t,p,:,/,/|R2]) :-
t352(R1,R2),!.
t352([t,t,p,:,/,/|R1],[h,t,t,p,:,/,/|R2]) :-
t352(R1,R2),!.
t352([A|R1],[A|R2]) :-
t352(R1,R2).