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

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