gameE <- function(){
  n <- 14
  fib <- numeric(n)
  fib[1] <- 0
  fib[2] <- 1
  for(i in 3:n){
  fib[i] <- fib[i-1]+fib[i-2]
  }
  bet <- fib[2]
  money <- 0
  nplays <- 0
  fib.number <-2
  while(bet > 0 & bet <= 100){
  wheel <- sample(c('win','loss'),1,prob = c(18/37,19/37))
  if(fib.number==1){
    bet <- 0
  }
  else if(wheel=='win'){
    money <- money + bet
    bet <- fib[fib.number -1]
    fib.number <- fib.number -1
   }else{
     money <- money -bet
     bet <- fib[fib.number +1]
     fib.number <- fib.number +1
   }
    nplays <- nplays + 1
  }
  return(c(money,nplays))
}
gameE()
many.gameE <- replicate(100000,gameE())
max(many.gameE[1,])
min(many.gameE)
winsE <- sum(many.gameE[1,] > 0)
propE <- winsE/100000
timeE <- mean(many.gameE[2,])