このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1311089619/900
#  [1] 授業単元:プログラミング 
#  [2] 問題文(含コード&リンク): 
#  C言語の乱数発生関数を使ってサイコロ関数  int dice( void ) を作成し、以下の統計的な性質を検証せよ。 
#  (1) 10,100,1000,1万回、10万回、100万回、1000万回、1億回の試行での 期待値(平均値)の変化 
#  (2)前記の試行回数での各数字の出目の確率 
#  (3)2つのサイコロを投げた時の11、22のようなぞろ目の確率 
#  レポートのグラフはExcelを用いる。 
#  

'10,100,1000,1万回、10万回、100万回、1000万回、1億回の試行での 期待値(平均値)の変化' :-
        '0から9の数値をN回ランダムに取り出す'(0,0).

'0から9の数値をN回ランダムに取り出す'(100000000,_合計) :-
        _平均値 is _合計 / 100000000,
        writef('試行回数: %t,平均値: %t\n',[100000000,_平均値]),!.
'0から9の数値をN回ランダムに取り出す'(N,_合計) :-
        member(N,[10,100,1000,10000,100000,1000000,10000000]),
        _平均値 is _合計 / N,
        writef('試行回数: %t,平均値: %t\n',[N,_平均値]),
        fail.
'0から9の数値をN回ランダムに取り出す'(M,_合計1) :-
         _合計2 is random(10) + _合計1,
         M2 is M + 1,
         '0から9の数値をN回ランダムに取り出す'(M2,_合計2).