このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1289913298/399
#  [1] 授業単元:C言語 
#  [2] 問題文(含コード&リンク):整数型1次元配列に対して平均値を計算する関数を書き、 
#  {1, 4, 2, 8, 1, 5} の平均値 3.5 を求めよ。 
#  

'整数型1次元配列に対して平均値を計算する関数を書き、{1, 4, 2, 8, 1, 5} の平均値 3.5 を求めよ。' :-
        平均値({1, 4, 2, 8, 1, 5},[],0,3.5).

平均値({V},Ln,S,_平均値) :-
        length([_|Ln],N),
        _平均値 is (S + V) / N,!.
平均値({N,R},Ln,S1,_平均値) :-
        S2 is S1 + N,
        平均値({R},[_|Ln],S2,_平均値).