>>797
これのネタもととなった原題はyoutubeにあった
>白999個、赤1001個のボールを無作為に1個ずつ取り出し、どちらかの色が全て取り出されたら終了。白が取り出されて終了する確率
を求めよ、という問題。

数を減らしてシミュレーションすると答の予想がついてくる。
数学のナンタラ予想ってそれだよなぁ。

calc(白の数、赤の数)という、シミュレーションプログラムを作って小さな数で実行すると

> calc(1,1)
[1] 0.50096

> calc(1,2)
[1] 0.66472

> calc(1,3)
[1] 0.75179

> calc(1,4)
[1] 0.79916

答は　赤の数/ボールの総数　と予想がつく。
答がでたらあとで辻褄のあう理屈を考える。
数学の王道ｗ

オマケ
（Rのコード、取り出したボールの数も併せて算出している)

calc <- function(w,r,k=1e5){
sim <- function(w,r){
pick <- function(x,one=1){
i=sample(length(x),one)
picked=x[i]
rest=x[-i]
list(picked=picked,rest=rest)
}
balls=rep(1:0,c(w,r))
picked=NULL
rest=balls
flg <- sum(picked==1)==w | sum(picked==0)==r
counter=0
while(!flg){
counter=counter+1
temp=pick(rest)
picked=append(picked,temp$picked)
rest=temp$rest
flg <- sum(picked==1)==w | sum(picked==0)==r
}
list(WhiteEnd=sum(rest)==0,counter=counter)
}
mean(replicate(k,sim(w,r)[[1]]))
}