いろんな言語で宿題スレ

いろんな言語で宿題ス ..

354:デフォルトの名無しさん
09/07/04 06:17:58
>>352
% Prolog

t352 :-
　　get_chars('url.txt',Chars),
　　t352(Chars,Chars2),
　　put_chars('result.txt',Chars).

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).

次ページ