//simpai=function(x){ // kaisu=0; #回数の初期値を0にする // for (i in 1:x) { // point=runif(2) // distant=sqrt(point[1]^2+point[2]^2) // if(distant<1){ // kaisu=kaisu+1 // } // } // answer=4*kaisu/x // print(answer) //} //> simpai(10) //[1] 2.8 //> simpai(100) //[1] 3.16 //> simpai(1000) //[1] 3.156 //> simpai(10000) //[1] 3.1624 //> simpai(100000) //[1] 3.15652 //> simpai(1000000) //[1] 3.13994 //> simpai(10000000) //[1] 3.140556