このディレクトリの索引

http://pc12.2ch.net/test/read.cgi/tech/1245853701/536
# [1] 授業単元: C言語演習
# [2] 問題文(含コード&リンク): 乱数を使って配列に値を代入するようにせよ。サイズを変化させて時間を計測してみせよ。
# サイズが十倍になると計算結果は何倍になるか?

t342(X,Y,Z) :-
    findsum(U1,(for(1,N1,100),U1 is random mod 100),X),
    findsum(U2,(for(1,N2,1000),U2 is random mod 100),Y),
    Z is Y / X.

findsum(_選択項,_項,_合計値) :-
    findall(_選択項,_項,_値ならび),
    sum(_値ならび,_合計値),!.

sum([],0.0) :- !.
sum([A|R],X) :- sum(R,Y),X is A + Y.