23/07/08 20:51:43.28 +rX7sfzP.net
>>436
Rでのシミュレーションコード
b=rep(c(1,2,4),3)
sim=\(){
sample(b) |> diff() |> abs() -> a
sum(a==1)==1 & sum(a==2)==0
}
replicate(1e6,sim()) |> mean()
23/07/08 20:51:43.28 +rX7sfzP.net
>>436
Rでのシミュレーションコード
b=rep(c(1,2,4),3)
sim=\(){
sample(b) |> diff() |> abs() -> a
sum(a==1)==1 & sum(a==2)==0
}
replicate(1e6,sim()) |> mean()