このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1342966104/844
#  [1] 授業単元:C言語  
#  [2] 問題文(含コード&リンク):  
#  http://ime.nu/codepad.org/DXRUGC3J 
#  http://ime.nu/codepad.org/e9CIf3Iy 
#  
#  /*
#  
#  2.以下のように各行に整数だけを記したファイルがあるとします.このファイルを開いて,各
#  行の数値の和を求めるプログラムを書きなさい.ファイル名はプログラムの引数にすること.
#  
#  ----ファイルdata.txtの中身----
#  12
#  2
#  -4
#  6
#  321
#  ---------------------------
#  
#  実行例337
#  
#  */
#  
#  /*
#  3.2のプログラムを,数値は標準入力から得るようにしなさい.そして,以下の
#  命令で2 と同じ結果が出るようにしなさい.
#  
#  実行例
#  
#  */
#  
#  type datatxt | prog
#  .sum is 
#  prog dat.txt337
#  sum is a

'数値は標準入力から得る.そして各行の数値の和を求める'(_各行の数値の和) :-
        get_lines(Lines),
        findsum(_値,(
                    member(_行,Lines),
                    atom_number(_行,_値)),
                _各行の数値の和).