poker (version 0.8.8)

dotFourOfAKind: dotFourOfAKind

Description

Determine the player with the highest hand (i.e., four of a kind and kicker) with score of 8.

Usage

dotFourOfAKind(nPlayers, cards, score)

Arguments

nPlayers

: number of hands to deal as integer in {2, ... , 9}

cards

:

the 7 card hand as matrix[nPlayers, 14]
	col1: rank of card 1 in {2, ... , 14}
	col2: suit of card 1 in {1, 2, 3, 4}
	col3: rank of card 2
	col4: suit of card 2
	.
	.
	.
	col13: rank of card 7

score

:

the score of the hand in absolute terms as vector[nPlayers]
	9 = Straight Flush
	8 = Four of a Kind
	7 = Full House
	6 = Flush
	5 = Straight
	4 = Three of a Kind
	3 = Two Pair
	2 = One Pair

Value

winner : absolute position of the winner as vector

See Also

dotFourOfAKindRanker

Examples

# NOT RUN {
cards <- c(14,10,5,1,2,1,14,9,7,2,2,2,4,4,4,3,3,3,8,8,8,3,3,3,13,13,13)
cards <- c(cards,3,3,3,14,14,14,3,3,3,14,14,14,4,4,4)
cards <- matrix(cards,nrow=3,ncol=14); cards
score <- showdown(cards); score
nPlayers <- nrow(cards); nPlayers
dotFourOfAKind(nPlayers,cards,score)

cards <- c(3,4,5,1,1,1,8,9,10,1,1,1,14,14,14,1,1,1,14,14,14,2,2,2,7,7,7)
cards <- c(cards,3,3,3,14,14,14,3,3,3,14,14,14,4,4,4)
cards <- matrix(cards,nrow=3,ncol=14); cards
score <- showdown(cards); score
nPlayers <- nrow(cards); nPlayers
dotFourOfAKind(nPlayers,cards,score)

cards <- c(3,4,5,1,1,1,8,9,10,1,1,1,14,14,14,1,1,1,14,14,14,2,2,2,11,11,11)
cards <- c(cards,3,3,3,14,14,14,3,3,3,14,14,14,4,4,4)
cards <- matrix(cards,nrow=3,ncol=14); cards
score <- showdown(cards); score
nPlayers <- nrow(cards); nPlayers
dotFourOfAKind(nPlayers,cards,score)
# }