18/07/02 21:38:35.34 tMXA02ZR.net
>>462
崖から1000歩離れたら転落を逃れたことにしてプログラムを書き直す。
escape.cliff <- function(p=2/3,k=1000){
pos=1
while(pos<k){
if(pos==0) return(FALSE)
pos=pos+sample(c(1,-1),1,prob=c(p,1-p))
}
return(TRUE)
}
mean(replicate(1e3,escape.cliff()))