このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1289913298/5
#  1] 授業単元: 数値解析 
#  [2] 問題文(含コード&リンク): ランダムに入力された3次元における100点の重心を求めよ 
#  

ランダムに入力された3次元における100点の重心を求める(LL,_x,_y,_z) :-
        length(L,100),
        ランダムに入力された3次元における100点(LL),
        findavg(_x,append(_,[[_x,_,_]|_],LL),_x),
        findavg(_y,append(_,[[_,_y,_]|_],LL),_y),
        findavg(_z,append(_,[[_,_,_z]|_],LL),_z),!.

ランダムに入力された3次元における100点([]) :- !.
ランダムに入力された3次元における100点([[_x,_y,_z]|R]) :-
        _x is random mod 1000,
        _y is random mod 1000,
        _z is random mod 1000,
        ランダムに入力された3次元における100点(R).