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)