18/06/30 15:04:31.53 j2CU1Lw0.net
>>351
重複順列組合せの総当たりで計算すると
数値は正確だがすぐにメモリ不足になる。
投票数1000だとオーバーフローする。
得票数750と250で開票途中で1回以上同数になる確率の近似シミュレーション。理論値は0.5。
[Previously saved workspace restored]
> a=750 ; b=250
> v=c(rep(1,a),rep(0,b))
>
> f <- function(v){
+ x=sample(v)
+ any(cumsum(x)==cumsum(1-x))
+ }
>
> mean(replicate(1e5,f(v)))
[1] 0.50075
>
10万回シミュレーションでよい近似になった。