このディレクトリの索引

http://pc12.2ch.net/test/read.cgi/tech/1245853701/946 
# 【質問テンプレ】 
# [1] 授業単元 C言語 
# [2] 問題文(含コード&リンク): 
# 二つのバイナリファイルの中身を比較して等しいか、等しくないかを 
# 比較して結果を返す関数を作る 

二つのバイナリファイルの中身を比較(_ファイル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,_診断).