//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) //}