このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1312201995/724
#  [1] 授業単元:プログラミング演習 2 
#  [2] 問題文(含コード&リンク)        
#  標準入力に現れた行数と文字数をカウントするCプログラムline_count.cを書きなさい。 
#  実行例は例えば次のようになります 
#  $ ./line_count < testfile. txt 
#  I am a student. 
#  I have a programming C class. 
#   
#  lines: 2 letters: 46 ← 欲しいのはこの2つの数字、つまり行数と文字数です. 
#  $ 
#   
#  [3.1] OS: unix  
#  [3.2] コンパイラ名とバージョン: gcc  
#  [3.3] 言語: C  
#  [4] 期限:10月19日(出来れば早めにお願いします)  
#  よろしくお願いします。 
# 

標準入力に現れた行数と文字数をカウントする :-
        get_char(Char),
        標準入力に現れた行数と文字数をカウントする(Char,0,0,_行数,_文字数),
        writef('%t,%t\n',[_行数,_文字数]).

標準入力に現れた行数と文字数をカウントする(end_of_file,_行数,_文字数,_行数,_文字数).
標準入力に現れた行数と文字数をカウントする('\n',_行数_1,_文字数_1,_行数,_文字数) :-
        _行数_2 is _行数_1 + 1,
        get_char(Char),
        標準入力に現れた行数と文字数をカウントする(Char,_行数_2,_文字数_1,_行数,_文字数),!.
標準入力に現れた行数と文字数をカウントする(Char,_行数_1,_文字数_1,_行数,_文字数) :-
        _文字数_2 is _文字数_1 + 1,
        get_char(Char2),
        標準入力に現れた行数と文字数をカウントする(Char2,_行数_1,_文字数_2,_行数,_文字数),!.