このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1291471791/772
#  [1] 授業単元:プログラミング 
#  [2] 問題文(含コード&リンク): 
#  例題11-1において、A~Dの学生それぞれに対し 
#  第1回~第3回の小テストの平均点を求めるプログラムを作れ 
#  なおA~Dそれぞれの平均点は、配列の宣言と生成double a[4]をしてから 
#  この配列のa[0]から順に代入するようにせよ 
#  
#  上記の例題11-1は
#  4人の学生A,B,C,Dの3回のテストの点数が表のようになっている
#  表中の12個の点数の平均を求めよ
#  A 45 50 60
#  B 75 95 45
#  C 100 90 95
#  D 60 70 80
#  
#  という問題です。

表('A 45 50 60\nB 75 95 45\nC 100 90 95\nD 60 70 80\n').

'4人の学生A,B,C,Dの3回のテストの点数が表のようになっている表中の12個の点数の平均を求めよ'(_平均点) :-
        表(_表),
        split(_表,['\n'],L1),
        findall(L2,(
                  append(_,[Line|_],L1),
                  split(Line,[' '],L2)),
                L3),
        findavg(_点数,(
                   append(_,[[_|R1]|_],L3),
                   append(_,[_点数|_],R1)),
                _平均点).