このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1309076891/613
#  明日までの課題です。 
#  まったくわかりません。 
#   
#  キーボードから入力するテキスト(文字列)をコマンドラインでファイル名を指定したファイルに出力するプログラムを書きなさい。 
#  なお、プログラムは次の要件を満たすこと。 
#   
#  1.キーボードからの入力は、Enter(return)キーを2回連続して入力すると終了する 
#  2.入力終了後、画面に入力した行数を表示する 
#  3.コマンドラインからプログラムを起動後、入力する文字列に各自の氏名(ローマ字表記)を含めた場合、入力処理終了後、各自の氏名を含む行は何行目にあり、その行の文字列が何であるか表示する。 
#  氏名が入力データに含まれていない場合には、含まれていなかったことを表示する 
#   
#  よろしくお願いします。 
# 
# 

program :-
        'キーボードから入力するテキスト(文字列)をコマンドラインでファイル名を指定したファイルに出力する'.

'キーボードから入力するテキスト(文字列)をコマンドラインでファイル名を指定したファイルに出力する' :-
        user_parameters([_ファイル名]),
        open(_ファイル名,write,Outstream),
        get_line(Line),
        'キーボードから入力するテキスト(文字列)をコマンドラインでファイル名を指定したファイルに出力する'(Outstream,Line,[]),
        close(Outstream).

'キーボードから入力するテキスト(文字列)をコマンドラインでファイル名を指定したファイルに出力する'(Outstream,'',Ln) :-
        length(Ln,_行数),
        writef('行数は %t です\n',[_行数]),!.
'キーボードから入力するテキスト(文字列)をコマンドラインでファイル名を指定したファイルに出力する'(Outstream,Line,Ln) :-
        writef(Outstream,'%t\n',[Line]),
        get_line(Line_2),
        'キーボードから入力するテキスト(文字列)をコマンドラインでファイル名を指定したファイルに出力する'(Outstream,Line_2,[_|Ln]

user_parameters(UserParameterList) :-
        current_prolog_flag(argv,ParameterList),
        append(_,['--'|UserParameterList],ParameterList).