|
|
想破頭還是無法想出來，想請問有沒有大大可以幫我解決我的問題?
撲克牌一共52張，發四副牌，每副牌一次只有五張牌，之後判斷每個人手上的牌是否有一對，兩對，俘虜(3張一樣+2張一樣)，同花，或順子。
#######################################################################
已下是我寫出的發牌，但是我無法判定牌型
players=4;player_cards=13
cards=paste(rep(c('space','heart','diamond','club'),13),rep(1:13,each=4),sep="-")
random_seed=sample(52)
(result=matrix(cards[random_seed],,players)[1:player_cards,])
|
|
发表于 2015-3-17 11:36:19