このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1335517816/405
#  [1] 授業単元:プログラミング 
#  [2] 問題文(含コード&リンク): 
#
#  繰り返し入力された文字列をリストに集めてそれを連結する。 
#  文字列 quit が入力された時終了する
#  
%
%  一般には文字列を一旦リストに集めてそれから結合する
%
%  終了条件の ,!,fail; がポイント
%

'繰り返し入力された文字列を連結する。文字列 quit が入力されたとき繰り返しを終了してできあがった文字列を表示する' :-
        findall(_入力された文字列,(
                    入力された文字列(_入力された文字列),
                    (    _入力された文字列 = quit,!,fail;
                         true)),
                L),
        atomic_list_concat(L,_連結された文字列),
        writef('%t\n',[_連結された文字列]).

入力された文字列(_入力された文字列) :-
        write('文字列 ? '),
        get_line(_入力された文字列).