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,_診断).