作者celestialgod (天)
看板R_Language
标题Re: [问题] 21点
时间Mon Oct 26 22:03:11 2015
※ 引述《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)
{
# 发牌给玩家
}
}
# 最後比大小...
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 180.218.154.163
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/R_Language/M.1445868193.A.526.html
1F：推 cano7127: 谢谢您 :) 可是我需要研究研究 10/26 22:21
※ 编辑: celestialgod (180.218.154.163), 10/27/2015 00:54:10