このディレクトリの索引
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 を求めよ。' :-
        assertz((平均値({V},Ln,S,_平均値) :- length([_|Ln],N),_平均値 is (S + V) / N , (!))),
        assertz((平均値({N , R},Ln,S1,_平均値) :- S2 is S1 + N,平均値({R},[_|Ln],S2,_平均値))).
        平均値({1 , 4 , 2 , 8 , 1 , 5},[],0,3.5) .