后续每张卡变大的概率是多少

Question

想象一下一副500张牌，编号从1到500。如果所有牌都是随机洗牌的，并且要求您选择三张牌，一次一张，那么后续每张牌比前一张牌大的概率是多少

Answer 1

这看起来很像家庭作业，所以这是一个数字结果

cards=replicate(1e6,sample(1:52,3))
results=apply(cards,2,function(x){
if (x[1]<x[2] & x[2]<x[3]) {
return(1)
} else {
return(0)
}
})
mean(results)
[1] 0.166298