数学板の分からない問題スレより

0から始まり、ランダムに+1もしくは-1する操作を(確率1/2で)、60回行う。
一度も絶対値が16以上にならない確率を求めよ。

一行で概算できた。数学スレでは顰蹙解w

> mean(replicate(1e6,all(abs(cumsum(0.5-rbinom(60,1,0.5))*2)<16)))
[1] 0.920739