>>132
((−1から1までの間の一様分布する乱数1000万個)^2+(−1から1までの間の一様分布する乱数万個)^2<1)が成立する割合*乱数の取りうる面積4
可読性を考えなければ
mean(runif(1e7,-1,1)^2+runif(1e7,-1,1)^2<1)*4
と1行で書ける。
BASICで1行にするのは無理じゃね?