このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1289913298/317
#  配列とファイルの読み込みです。 
#   
#  たとえば、100個の数字が用意されたファイルを用意します。 
#  そのファイルを使って平均値を求めるプログラムを作りたいのですが教えてください。 
#  ファイル名は適当で良いです。 
#   
#  平均値を求める計算は関数部分でお願いします。 
# 

たとえば、100個の数字が用意されたファイルを用意します。そのファイルを使って平均値を求める(_ファイル,_平均値) :-
        get_lines(_ファイル,Lines),
        findavg(N,(
                    append(_[Line|_],Lines),
                    atom_to_term(Line,N,_)),
                _平均値).

100個の数字が用意されたファイルを用意します(_ファイル) :-
        length(L,100),
        100個の数字が用意されたファイルを用意します(L),
        open(_ファイル,write,Outstream),
        append(_,[N|R],L),
        write_formatted(Outstream,'%t\n',[N]),
        R = [],
        close(Outstream).

100個の数字が用意されたファイルを用意します([]) :- !.
100個の数字が用意されたファイルを用意します([V|R]) :-
        V is random mod 10000,
       100個の数字が用意されたファイルを用意します(R).