18/07/02 19:45:46.14 tMXA02ZR.net
>>461
崖から落ちたらループから抜け出すようにして高速化。
totter <- function(n=1e3){
pos=0
for(i in 1:n) {
if(pos<0) return(FALSE)
pos=pos+sample(c(1,-1),1,prob=c(2/3,1/3))
}
return(pos>=0)
}
mean(replicate(1e4,totter()))
18/07/02 19:45:46.14 tMXA02ZR.net
>>461
崖から落ちたらループから抜け出すようにして高速化。
totter <- function(n=1e3){
pos=0
for(i in 1:n) {
if(pos<0) return(FALSE)
pos=pos+sample(c(1,-1),1,prob=c(2/3,1/3))
}
return(pos>=0)
}
mean(replicate(1e4,totter()))