このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1308749241/310
#  C++の入ったパソコンが先ほど壊れてしまったので御助力お願いします。  
#  急なことで時間が全くありません。本当に申し訳ないです・・・  
#   
#  [1] 授業単元: 確率統計学  
#  [2] 問題文(含コード&リンク):  
#  10個のサイコロを同時に振り、1の目が出る確率を求める。ただし、回数は100、1000、10000、100000と変化させ、確率と誤差を求めよ。  
#  これは、完成済みで結果の出力のみお願います。また、エラーが出た場合は御助力をお願いします。  
#  http://codepad.org/jZHx7pfy  
#  

'10個のサイコロを同時に振り1の目が出る確率を求める'(Max,_1の目の出る確率) :-
        '1の目が出る確率を求める'(Max,_1の目の出る確率).

'1の目が出る確率を求める'(Max,_1の目の出る確率) :-
        '1の目の総数'(1,Max,_1の目の総数),
        _1の目の出る確率 is _1の目の総数 / (Max * 10).

'10個のサイコロを同時に振り'(L) :-
        length(L,10),
        findall(N,(
                    append(_,[_|_],L),
                    N is random(6) + 1),
                L).

'1の目の総数'(_回数,_限界回数,0) :-
        _回数 > _限界回数,!.
'1の目の総数'(_回数,_限界回数,X) :-
        '10個のサイコロを同時に振り'(L),
        count(member(1,L),Count),
        _回数_2 is _回数 + 1,
        '1の目の総数'(_回数_2,_限界回数,Y).
        X is Count + Y.