このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1312201995/477
#  [1] アルゴリズム論 
#  [2] Unixコマンドのgrepを実装したmygrepの作成 
#    コマンドライン引数で検索文字列とファイル名をもらい、ファイル内に検索文字列が含まれる行があればその行を出力する 
#    正規表現に対応させる必要はない 
#  [3]  
#  [3.1]windows xp   
#  [3.2]gcc   
#  [3.3]c言語  
#  [4] 無期限  
#  [5] strstrは使用禁止 
#   
#  よろしくおねがいします 
# 

program :-
        user_paramaters([_検索文字列,_ファイル名]),
        open(_ファイル名,read,Instream),
        grep_line(Instream,_検索文字列),
        close(Instream),
        halt.

grep_line(Instream,_検索文字列) :-
        at_end_of_stream(Instream),!.
grep_line(Instream,_検索文字列) :-
        get_line(Stream,Line),
        sub_atom(Line,_,_,_,_検索文字列),
        writef('%t\n',[Line]),
        fail.
grep_line(Instream,_検索文字列) :-
        grep_line(Instream,_検索文字列).