このディレクトリの索引
http://pc12.2ch.net/test/read.cgi/tech/1258158172/50
#  [1] 授業単元:C言語基礎 
#  [2] 問題文(含コード&リンク): 
#  1.数値の入力されたテキストファイルを引数から読み込み、合計を求めるプログラムを作れ。 
#  各行を2次元配列に格納する。何も入力されてない行か、0のみの行があれば読み込み終了。その後計算を行う。 
#  〜入力ファイル例〜 
#  908 
#  29 
#  3095 
#  5968 
#   
#  のように改行で終わるか、 
#  9824 
#  2554 
#  4869 
#  0 
#  で終了 

数値の入力されたテキストファイルを引数から読み込み、合計を求めるプログラムを作れ(_ファイル) :-
        数値の入力されたテキストファイルを引数から読み込み(_ファイル,L),
        合計を求める(L,_合計),
        write_formatted('%t\n',[_合計]).

数値の入力されたテキストファイルを引数から読み込み(_ファイル,L) :-
        open(_ファイル,read,Input),
        get_line(Input,Line),
        テキストファイルの読み込み(Input,L),
        close(Input).

テキストファイルの読み込み('0',[]) :- !.
テキストファイルの読み込み('',[]) :- !.
テキストファイルの読み込み(Line,[N|R]) :-
        atom_to_term(Line,N,_),
        get_line(Line2),
                テキストファイルの読み込み(Line2,R).

合計を求める(_値ならび,_合計) :-
        sum(_値ならび,_合計).