いろんな言語で宿題スレ

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

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

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

451:デフォルトの名無しさん
 09/07/12 18:03:48 
http://pc12.2ch.net/test/read.cgi/tech/1245853701/424 
# http://kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/9644.txtにある 
# 50コのデータを利用して 
# 最大値と最小値を取り出すプログラムを以下の1,2の関数を用いて2つ作れ 
# 1 return文を用いたケース 
# 2 グローバル変数を用いたケース 
# http://kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/9644.txtの 
# ポインタは使用不可です 
#ファイル名はseiseki.txtでお願いします 
# 70 56 66 45 88 
# 66 85 68 55 73 
# 55 65 53 67 55 
# 85 72 76 58 65 
# 92 70 45 73 55 
# 56 57 52 62 82 
# 72 62 33 85 95 
# 46 95 48 72 34 
# 83 42 88 92 56 
# 68 65 91 82 66

次ページ