底辺私立医大を卒業した医者って頭悪いよね？ Part23

705 ：卵の名無しさん (ﾜｯﾁｮｲ 3f58-ZohH [14.13.16.0 [上級国民]])：2022/07/24(日) 02:55:10 ID:4f5vkXNk0.net

sim=\(r=40,n=100){
a=numeric(n)
a[sample(n,r,replace=TRUE)]=1
#sum(diff(a)!=0)+1
sum((a[2:n]-a[1:(n-1)])!=0)+1
}
replicate(1e5,sim()) |> summary()