このディレクトリの索引
http://pc12.2ch.net/test/read.cgi/tech/1276810079/190
#  モンテカルロ法で√2の近似値を求めたいのですが、  
#  ネット調べてみるとモンテカルロ法と言えばπの近似に関するばかりで・・・  
#  どなたか教えてくださいませ  
# 
# 

'モンテカルロ法で√2の近似値を求める'(_試行回数,_除数,X) :-
度数((between(1,_試行回数,N),U is random(_除数) ^ 2,U =< _除数 * _除数 / 2),Y),
X is Y / (_試行回数 / 2).

度数(_目標,_度数) :-
findall(1,_目標,L),
length(L,_度数).