このディレクトリの索引
#  [1] 授業単元： 
#  [2] 問題文 
#  今テキストファイルＡが１つとＢが１０個あるとする。 
#  Ａには 
#  haru 
#  natsu 
#  aki 
#  fuyu 
#  とかかれ 
#  Ｂにはそれぞれのテキストに以下のような文字列がかかれている 
#  wheiowfjhoiejwio2121oij3io12ji2oj3io2j3oijo 
#  iouaiojoiajwioejio121j3oi1j2iojlajia 
#  これらをまとめ 
#  テキストＣに 
#  aki[tab]wheiowfjhoiejwio2121oij3io12ji2oj3io2j3oijo[改行] 
#  natsu[tab]iouaiojoiajwioejio121j3oi1j2iojlajia[改行] 
#  になるようなプログラムをかけ 
#  ただし。Ｂのそれぞれのテキストは非常に長くても大丈夫にせよ。 
#  [3] 環境　[3.1] OS：linux 
#  　[3.2] gcc 
#  　[3.3 C 
#  [4] 期限： 5/23 

'今テキストファイルＡが１つとＢが１０個あるとする。
Ａには
haru
natsu
aki
fuyu
とかかれ
Ｂにはそれぞれのテキストに以下のような文字列がかかれている
wheiowfjhoiejwio2121oij3io12ji2oj3io2j3oijo
iouaiojoiajwioejio121j3oi1j2iojlajia
これらをまとめ
テキストＣに
aki[tab]wheiowfjhoiejwio2121oij3io12ji2oj3io2j3oijo[改行]
natsu[tab]iouaiojoiajwioejio121j3oi1j2iojlajia[改行]
になるようなプログラムをかけ
ただし。Ｂのそれぞれのテキストは非常に長くても大丈夫にせよ。' :-
         テキストファイルＡとならびＢに現れるファイルを結合する(_Ａ,_ならびＢ).

テキストファイルＡとならびＢに現れるファイルを結合する(_Ａ,_ならびＢ) :-
        open(_Ａ,read,Instream),
        テキストファイルＡの一行とならびＢに現れる一つのファイルを順番に結合する(Instream,_ならびＢ),
        close(Instream).

テキストファイルＡの一行とならびＢに現れる一つのファイルを順番に結合する(_,[]) :- !.
テキストファイルＡの一行とならびＢに現れる一つのファイルを順番に結合する(Instream,[File|R]) :-
        get_line(Instream,Line),
        get_chars(File,Chars),
        表示する(Line,Chars),
        テキストファイルＡの一行とならびＢに現れる一つのファイルを順番に結合する(Instream,R).

表示する(Line,Chars) :-
        atomic_list_concat([Line,'\t'|Chars],_表示文字列]),
        writef('%t\n',[_表示文字列]).