dotFlush: dotFlush

In poker: Play Texas Hold Em Poker

Description

Determine the player with the highest flush.

Usage

dotFlush(cards, score)

Arguments

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 col14: suit 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 1 = High Card

Value

winner : absolute position of the winner as vector

See Also

dotFlushRanker and dotHighcardCompare

Examples

cards <- c(2,1,3,3,5,2,6,3,7,3,13,3,14,3,2,3,3,4,5,1,6,3,7,3,13,3,14,3)
cards <- matrix(cards,2,14,byrow=TRUE); cards
score <- showdown(cards); score
dotFlush(cards,score)

cards <- c(2,1,3,3,5,3,6,3,7,3,13,3,14,3,2,3,3,4,5,3,6,3,7,3,13,3,14,3)
cards <- matrix(cards,2,14,byrow=TRUE);cards
score <- showdown(cards); score 
dotFlush(cards,score)

Example output

     [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12] [,13] [,14]
[1,]    2    1    3    3    5    2    6    3    7     3    13     3    14     3
[2,]    2    3    3    4    5    1    6    3    7     3    13     3    14     3
[1] 6 6
[1] 1
     [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12] [,13] [,14]
[1,]    2    1    3    3    5    3    6    3    7     3    13     3    14     3
[2,]    2    3    3    4    5    3    6    3    7     3    13     3    14     3
[1] 6 6
[1] 1 2

poker documentation built on May 2, 2019, 3:45 a.m.