このディレクトリの索引
http://pc12.2ch.net/test/read.cgi/tech/1245853701/786
# [1] 授業単元: C言語 
# [2] 問題文(含コード&リンク): 
# http://kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/9706.txt 
# [3] 環境 
# 問題1
# テキストファイルからバイナリファイルの作成
# テキストファイルの内容は {14,17,18,21,23,25,31}と
# {10, 12, 15, 16, 19, 27, 28}の二つ。
# これが書かれているテキストファイルをバイナリファイルにする。
# 
# 問題2 
# 1で作ったバイナリファイルをあわせて
# {10, 12, 14, 15, 16 17, 18, 19 21, 23, 25 27, 28, 31} の
# バイナリファイルの作成

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