สองปีติดต่อกัน

players <- c(1:60)
count <- 0

for(i in 1:10000){
  cash_year1 <- sample(players, 6)
  cash_year2 <- sample(players, 6)
  # Find those who cashed both years
  cash_both <- 
  # Check whether anyone cashed both years
  if(___){
    count <- count + 1
  }  
}

print(count/10000)