## Projects are due by email to me, on Sunday, May 24, 11:00pm
## Rules:
## a) We will run several tournaments. 
## Each will have 3 winners, with payouts of 13,8, and 5.
## b) Start with 1500 chips each, and blinds of 50 and 100.
## c) Small blind = 1/2 big blind (rounded to nearest integer).
## d) Blinds last 10 hands, then increase by 50 percent. (rounded)




## Examples:
tommy = function(numattable1, crds1, board1,  round1, currentbet,  mychips1, pot1, 
    roundbets, blinds1, chips1, ind1, dealer1, tablesleft){
    ## all in with any pair.
    a1 = 0
    if(crds1[1,1] == crds1[2,1]) a1 = mychips1
    a1
} ## tommy


ursula = function(numattable1, crds1, board1,  round1, currentbet,  mychips1, pot1, 
    roundbets, blinds1, chips1, ind1, dealer1, tablesleft){
    ## if pair of 9s or better, then all in    
    a1 = 0
    if((crds1[1,1] == crds1[2,1]) && (crds1[2,1] > 8.5)) a1 = mychips1
    a1
} ## end of ursula



## MAKE TEAMS:
x = c("alina","allen","alex","bernadine",
"allison","elmer","brian","kevin",
"chris", "khoi","vincent","samantha",
"marco","dev","margaret","stanley",
"david","taylor","april")

n = length(x)  

name1 = c("a","b","c","d","e","f","g","h","i")

teams = function(){
y = x[sample(n)]
for(i in 1:(n/2)){
cat("\n", name1[i], y[(2*i-1):(2*i)])
}
cat(" ",y[n])
}

teams()


 a allen alina
 b taylor bernadine
 c margaret vincent
 d april elmer
 e stanley brian
 f allison samantha
 g khoi chris
 h david kevin
 i marco alex  dev