このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1311089619/914
#  [1] 授業単元:プログラム概論 
#  [2] 問題文(含コード&リンク):ファイルの商品名を順に読み込んで、オーダー 
#                    の順を出力する関数を作成しなさい. 
#  http://ime.nu/codepad.org/q5G3hxdB ←ここまで作りましたが、"ファイルが見つかりません"と表示されます. 
#   
#  

'ファイルの商品名を順に読み込んで、オーダーの順を出力する'(_ファイル) :-
        get_lines(_ファイル,Lines),
        append(_,[Line|R],Lines),
        sub_atom(Line,0,20,_,_商品名),
        writef('%t\n',[_商品名]),
        R = [].


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

'ファイルの商品名を順に読み込んで、オーダーの順を出力する'(_ファイル) :-
        open(_ファイル,read,Instream),
        '商品名を順に読み込んで、オーダーの順を出力する'(Instream),
        close(Instream).

'商品名を順に読み込んで、オーダーの順を出力する'(Instream) :-
        at_end_of_stream(Instream),!.
'商品名を順に読み込んで、オーダーの順を出力する'(Instream) :-
        get_line(Instream,Line),
        sub_atom(Line,0,20,_,_商品名),
        writef('%t\n',[_商品名]),
        '商品名を順に読み込んで、オーダーの順を出力する'(Instream).