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