このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1291471791/847
#  [1] 授業単元:C++ 
#  [2] 問題文(含コード&リンク):1辺の長さが2の正方形の中に半径1の円形の標的がある。この板に向かってランダムに弾を撃って、標的に 
#     が入ったか否かを調べることで円周率を求める(モンテカルロ法)プログラムを作りなさい。 
#     撃った弾の数をx、命中した数をyとする。 
#  

'1辺の長さが2の正方形の中に半径1の円形の標的がある。この板に向かってランダムに弾を撃って、標的にが入ったか否かを調べることで円周率を求める(モンテカルロ法)'(_円周率) :-
           count((  for(1,_,100000),
                    _x is ((random mod 20001) - 10000) / 10000,
                    _y is ((random mod 20001) - 10000) / 10000,
                    1.0 >= sqrt((_x ^ 2) + (_y ^ 2))),
                Count),
          _円周率 is (Count / 100000) * 4.