いろんな言語で宿題スレ

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

450:デフォルトの名無しさん
09/07/12 15:58:28
>>449
% Prolog

二つのバイナリファイルの中身を比較(_ファイル1,_ファイル2,_診断) :-
open(ファイル1,read,_ストリーム1,[type(binary)]),
　　open(ファイル2,read,_ストリーム2,[type(binary)]),
　　get_byte(_ストリーム1,A),
　　get_byte(_ストリーム2,B),
　　二つのバイナリファイルの中身を比較(_ストリーム1,_ストリーム2,A,B,_診断),
　　close(_ストリーム1),
　　close(_ストリーム2).

二つのバイナリファイルの中身を比較(_,_,-1,-1,等しい) :- !.
二つのバイナリファイルの中身を比較(_,_,A,B,等しくない) :- not(A=B),!.
二つのバイナリファイルの中身を比較(_ストリーム1,_ストリーム2,A,A,_診断) :-
　　get_byte(_ストリーム1,C),
　　get_byte(_ストリーム2,D),
　　二つのバイナリファイルの中身を比較(_ストリーム1,_ストリーム2,C,D,_診断).

次ページ

続きを表示

1を表示