Description Usage Arguments Details Value Author(s) Examples

Sees if you have a flush, and if so, how high it is.

1 | ```
flush1(x, y)
``` |

`x` |
vector of numbers of your cards and the board cards, together. |

`y` |
corresponding suits of your cards and the board cards. |

Can break down if dealing with 10 cards or more, i.e. if 2 flushes are possible

returns 0 if you don't have a flush, or 15^4 times top number + 15^3 times 2nd-highest + ... if you do.

Frederic Paik Schoenberg

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | ```
x = c(2,14,8,8,5,3,4)
y = c(1,2,4,1,1,1,1)
flush1(x,y)
x = c(2,14,8,8,5,3,4)
y = c(1,2,4,1,3,1,1)
flush1(x,y)
##---- Should be DIRECTLY executable !! ----
##-- ==> Define data, use random,
##-- or do help(data=index) for the standard data sets.
## The function is currently defined as
function(x,y){
## Can break down if dealing with 10 cards or more, i.e. if 2 flushes are possible
## returns 15^4 times top number + 15^3 times 2nd-highest + ...
a1 = mycount1(y)
if(max(a1$ct)<4.5) return(0)
a2 = c(1:length(a1$ct))[a1$ct > 4.5]
a3 = a1$v[a2] ## this is the suit
a4 = sort(x[y == a3],decreasing=T)
sum(15^c(4:0) * a4[1:5])
} ## end of flush1
``` |

Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.