推 cano7127: 謝謝您 :) 可是我需要研究研究 10/26 22:21
※ 編輯: celestialgod (180.218.154.163), 10/27/2015 00:54:10
※ 引述《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://www.ptt.cc/bbs/R_Language/M.1445868193.A.526.html