通过在R中抽出5张牌，模拟得到4张独一无二的牌(4张牌，符号相同: 7，8，9，10，J，Q，K或A)的概率

# 定义一副标准扑克牌
suits <- c("红桃", "方块", "梅花", "黑桃")
values <- c("A", "2", "3", "4", "5", "6", "7", "8", "9", "10", "J", "Q", "K")
deck <- expand.grid(suits = suits, values = values)

# 模拟抽取5张牌并计算概率
num_simulations <- 100000  # 模拟次数
num_success <- 0  # 满足条件的抽取结果数

for (i in 1:num_simulations) {
  hand <- sample_n(deck, 5)  # 随机抽取5张牌
  unique_cards <- unique(hand$values)  # 获取不同的牌
  
  if (length(unique_cards) == 4) {
    num_success <- num_success + 1
  }
}

probability <- num_success / num_simulations
probability