このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1291471791/773
#  [1] 授業単元:プログラミング 
#  [2] 問題文(含コード&リンク): 
#  例題11-1において、第1回~第3回のそれぞれの小テストにおいて 
#  4人の学生の平均点を出力するプログラムを作れ 
#  なお第1回~第3回のそれぞれの平均点は配列の宣言と生成double b[3]とし 
#  この配列に代入するプログラムとせよ 
#  

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

'4人の学生の平均点を出力する' :-
        表(_表),
        split(_表,['\n'],L1),
        findall([_名前,_平均点],(
                    append(_,[[_名前|R1]|_],L1),
                    avg(R1,_平均点)),
                _4人の学生の平均点ならび),
        append(_,[[_名前,_平均点]|R],_4人数の学生の平均点ならび),
        write_formatted('%t,%t点\n',[_名前,_平均点]),
        R = [].