library(stringr)

a=0
lost_a=0
b=0
lost_b=0
for (i in 1:100000) {
  win<-sample(0:9999,23,replace=TRUE)
  
  buy<- c(sample(0:9999,1,replace=TRUE))
  buy<-cbind(formatC(buy,dig=0,wid=4,format="f",flag="0"))
  win<-cbind(formatC(win,dig=0,wid=4,format="f",flag="0"))
  
  if (buy==win[1]) {
  a+2500  
  }else if (buy==win[2]){a<-a+2000
  }  
    
  else if (buy==win[3]){a<-a+1500
  }
  
  else if (buy==win[4]){a<-a+250
  }
  else if (buy==win[5]){a<-a+250
  }
  else if (buy==win[6]){a<-a+250
  }
  else if (buy==win[7]){a<-a+250
  }
  else if (buy==win[8]){a<-a+250
  }
  else if (buy==win[9]){a<-a+250
  }
  else if (buy==win[10]){a<-a+250
  }
  else if (buy==win[11]){a<-a+250
  }
  else if (buy==win[12]){a<-a+250
  }
  else if (buy==win[13]){a<-a+250
  }
  
  else if (buy==win[14]){a<-a+150
  }
  else if (buy==win[15]){a<-a+150
  }
  else if (buy==win[16]){a<-a+150
  }
  else if (buy==win[17]){a<-a+150
  }
  else if (buy==win[18]){a<-a+150
  }
  else if (buy==win[19]){a<-a+150
  }
  else if (buy==win[20]){a<-a+150
  }
  else if (buy==win[21]){a<-a+150
  }
  else if (buy==win[22]){a<-a+150
  }
  else if (buy==win[23]){a<-a+150
  }
  else{a<-a-1 
  lost_a<-lost_a-1}














  
  if (buy==win[1]) {
    b+3500  
  }else if (buy==win[2]){b<-b+2000
  }  
  
  else if (buy==win[3]){b<-b+600
  }
  
  else if (buy==win[4]){b<-b+250
  }
  else if (buy==win[5]){b<-b+250
  }
  else if (buy==win[6]){b<-b+250
  }
  else if (buy==win[7]){b<-b+250
  }
  else if (buy==win[8]){b<-b+250
  }
  else if (buy==win[9]){b<-b+250
  }
  else if (buy==win[10]){b<-b+250
  }
  else if (buy==win[11]){b<-b+250
  }
  else if (buy==win[12]){b<-b+250
  }
  else if (buy==win[13]){b<-b+250
  }
  
  else if (buy==win[14]){b<-b+70
  }
  else if (buy==win[15]){b<-b+70
  }
  else if (buy==win[16]){b<-b+70
  }
  else if (buy==win[17]){b<-b+70
  }
  else if (buy==win[18]){b<-b+70
  }
  else if (buy==win[19]){b<-b+70
  }
  else if (buy==win[20]){b<-b+70
  }
  else if (buy==win[21]){b<-b+70
  }
  else if (buy==win[22]){b<-b+70
  }
  else if (buy==win[23]){b<-b+70
  }
  else{b<-b-1 
  lost_b<-lost_b-1}}
  
    income_a<-a
    
    income_b<-b


result<-data.frame(income_a,income_b)