このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1308749241/562
#  すみません、全くわからないのでご教唆お願いします 
#  ファイル名「test.txt」というテキストファイルがあったとします。内容は 
#  Hallow, nice to meet you.  
#  というものです。これを読み込んで 
#  Hallow 
#  nice 
#  to 
#  meet 
#  you  
#  というふうに単語ごとに区切り、改行して表示するプログラムを作ります。 
#  ソースコードはこんな感じです 

'ファイル名「test.txt」というテキストファイルを単語ごとに区切り、改行して表示する' :-
        see('test.txt'),
        readln(L,_終了状態),
        'テキストファイルを単語ごとに区切り、改行して表示する'(L,_終了状態),
        seen.

'テキストファイルを単語ごとに区切り、改行して表示する'(_,end_of_file) :- !.
'テキストファイルを単語ごとに区切り、改行して表示する'([_単語ならび|R],_) :-
        append(_,[_単語|R],_単語ならび),
        writef('%t\n',[_単語]),
        R = [],
        readln(L,_終了状態),
        'テキストファイルを単語ごとに区切り、改行して表示する'(L,_終了状態).

%  改行のみの行は単語として''(空文字)として取得できる