このディレクトリの索引
http://pc12.2ch.net/test/read.cgi/tech/1276810079/196
#  演習6-1 
#   
#  複数の文字列を読み込み,それらの文字列を空白を入れて繋ぎ合わせるプログラムを作成せよ. 
#   
#  【実行例】 
#   
#  何個の文字列を入力しますか?:3 
#  入力文字列[1]:A 
#  入力文字列[2]:B 
#  入力文字列[3]:C 
#   
#  結果:A B C 
#   
#  よろしくお願いします! 
# 
# 

複数の文字列を読み込み,それらの文字列を空白を入れて繋ぎ合わせる(_空白を入れて繋ぎ合わされた文字列) :-
        複数の文字列を読み込み(_行文字列ならび),
        それらの文字列を空白を入れて繋ぎ合わせる(_行文字列ならび,' ',_空白を入れて繋ぎ合わされた文字列).

複数の文字列を読み込み(_行文字列ならび) :-
        催促付き整数入力('何個の文字列を入力しますか?:',_文字列数),
        findall(_行文字列,(
                    for(1,_何行目,_文字列数),
                    write_formatted('入力文字列[%t] : ',[_何行目]),
                    get_line(_行文字列)),
                _行文字列ならび).

それらの文字列を空白を入れて繋ぎ合わせる(_行ならび,_空白を入れて繋ぎ合わされた文字列) :-
        concat_atom(_行ならび,' ',_空白を入れて繋ぎ合わされた文字列).