23/04/01 06:29:46.57 T1JldYqx0.net
balls=rep(c('黒','赤','白'),c(3,4,5))
explode=\(x) any(diff(which(x=="黒"))==1) || any(diff(which(x=="赤"))==1) || any(diff(which(x=="白"))==1)
calc=\(k=1e6) replicate(k,sample(balls) |> explode()) |> mean()
calc()
23/04/01 06:29:46.57 T1JldYqx0.net
balls=rep(c('黒','赤','白'),c(3,4,5))
explode=\(x) any(diff(which(x=="黒"))==1) || any(diff(which(x=="赤"))==1) || any(diff(which(x=="白"))==1)
calc=\(k=1e6) replicate(k,sample(balls) |> explode()) |> mean()
calc()