20/09/23 23:54:44.50 ZXia9ND7.net
>>736
プログラム組んでシミュレーションしてみた。
> sim <- function(){
+ x=sample(52)
+ flg=FALSE # same color & number?
+ i=1
+ while(flg==FALSE & i<52){
+ flg <- abs(x[i]-x[i+1])==26
+ i=i+1
+ }
+ return(!flg)
+ }
> mean(replicate(1e6,sim()))
[1] 0.364907