いろんな言語で宿題スレ

いろんな言語で宿題スレ at TECH

405:デフォルトの名無しさん
09/07/08 19:18:55
>>403 問題1 書き直し
% Prolog

t403_1(TextFile1,TextFile2,BinaryFile1,BinaryFile2) :-
　　t403_1_1(TextFile1,BinaryFile1),
　　t403_1_1(TextFile2,BinaryFile2).

t403_1_1(TextFile1,BinaryFile1) :-
　　open(TextFile1,read,Input),
　　open(BinaryFile1,write,Output,[type(binary)]),
　　get_line(Input,Line),
　　split(Line,['{',',','}'],L),
　　t403_1_2(Output,L),
　　close(Input),
　　close(Output).

t403_1_2(Output,L) :-
　　member(N,L),
　　put_byte(Output,N),
　　fail.
t403_1_2(_,_).

次ページ

続きを表示

1を表示