R语言，扑克牌随机抽样，求第几张牌超过21，其中A=1,J＝Q＝K＝10

R语言是一种专门用于统计计算和图形展示的编程语言，它在数据科学领域非常流行。如果你想用R来模拟扑克牌游戏并随机抽取牌，你可以创建一个函数来处理这个过程。在这个场景下，我们可以假设有一副标准的52张牌，并将A、J、Q、K都视为10点。下面是一个简单的步骤：

1. 首先，你需要安装`sample`函数，如果还没有安装可以使用`install.packages("base")`。

2. 定义一张牌的点数规则，例如：

get_point(card) {
  if (card %in% c("A", "J", "Q", "K")) return(10)
  else return(as.numeric(card))
}

3. 创建一副牌列表，并使用`sample()`函数随机抽取牌：

deck <- c(rep("A", 4), rep("2", 4), ..., "J", "Q", "K", rep("10", 4), rep(c("9", "8", "7", "6", "5", "4", "3"), each = 4)) # 52张牌

4. 写一个循环来抽取牌并检查累计点数是否超过21：

draw_cards <- function() {
  total_points <- 0
  for (i in 1:52) {
    card <- sample(deck, size = 1)[1]
    total_points <- total_points + get_point(card)
    if (total_points > 21) break
  }
  cat(paste0("Drawn ", i, ": The total points are ", total_points, "\n"))
}

# 调用函数开始游戏
draw_cards()