0071卵の名無しさん垢版 | 大砲2018/11/09(金) 07:26:09.53ID:guOlTCed (mean(replicate(1e4,any(diff(cumsum(rbinom(100,1,0.5)),5)==5)))) [1] 0.8089 > > (mean(replicate(1e4,with(rle(rbinom(100,1,0.5)), max(lengths[which(values= <rle(rbinom(100,1,0.5)), max(lengths[which(values== 1)])>=5)))) [1] 0.8117 >