먼저 4성이 나올 확률이 12.81%이라는 것은 공지에 존재한다.

근데 10연차를 하면 무조건 4성이 한개는 나오게 된다.

이를 이용해서 직접 프로그램을 돌려보았다

p4<-0.1281
L<-matrix(0,nrow=564,ncol=10)
set.seed(12345)
for(i in 1:564){
  L[i,]<-rbinom(10,1,p4)
}
head(L)
sum<-rep(0,564)
for(i in 1:564){
  if(sum(L[i,])<1) sum[i]<-1
  else sum[i]<-sum(L[i,])
}
sum(sum)/5640

통계 R프로그램을 이용하여 10연차를 564번 한 경우를 구해보면

> sum(sum)/5640[1] 0.1494681

14.95 퍼센트의 확률로 4성이 한장 등장해야 한다. 

즉 10연차를 100번을 돌리면 150개의 4성이 등장해야 한다.

p4<-0.0952
L<-matrix(0,nrow=564,ncol=10)
set.seed(12345)
for(i in 1:564){
  L[i,]<-rbinom(10,1,p4)
}
head(L)
sum<-rep(0,564)
for(i in 1:564){
  if(sum(L[i,])<1) sum[i]<-1
  else sum[i]<-sum(L[i,])
}
sum(sum)/5640

> sum(sum)/5640[1] 0.1281915

4성이 나올 확률은 9.52 퍼센트만 되어도 결과적으로 확정 4성을 포함하여 12.81 퍼센트로 등장하게 된다.

즉 10연차를 100번 돌려서 128개의 4성을 먹었다면 안된다는 뜻이다.

5성 확률 장난도 장난이지만 당장 4성 확률도 장난쳤을 가능성이 있다..