※ 引述《cano7127 (头儿)》之铭言：
: 程式咨询
: (做21点的游戏)
: [软件熟悉度]:
: 新手
: [问题叙述]:
: 电脑对电脑玩，目前卡在
: sample(52)
: cards<-sample(52)
: num<-cards%%13
: num
: (52\13的余数分配数字)
: 要怎么分配花色跟数字
: 其实可以说根本还没开始
: 有人可以指点方向吗?
: 谢谢
get_num = function(cards){
factor(cards %% 13, levels = 0:12, labels = c(1:10, "J", "Q", "K"))
}
get_suit = function(cards){
factor((cards-1) %/% 13, levels = 0:3,
labels = c("spade", "heart", "diamend","club"))
}
desk = sample(1:52)
n_player = 2
num_cards_out = 0
player_cards = vector('list', n_player)
for (i in 1:n_player)
{
player_cards[[i]] = data.frame(
suit = get_suit(desk[(num_cards_out+1):(num_cards_out+2)]),
num = get_num(desk[(num_cards_out+1):(num_cards_out+2)])
)
num_cards_out = num_cards_out + 2
}
calculate_points = function(cards){
## 计算点数
}
for (i in 1:n_player)
{
while (calculate_points(player_cards[[i]]) < 21 && somerules)
{
# 发牌给玩家
}
}
# 最后比大小...