fork(1) download
copy 
  1.  
  2.  
  3.  
  4. library(stringr)
  5.  
  6. a=0
  7. lost_a=0
  8. b=0
  9. lost_b=0
  10. for (i in 1:100000) {
  11.   win<-sample(0:9999,23,replace=TRUE)
  12.  
  13.   buy<- c(sample(0:9999,1,replace=TRUE))
  14.   buy<-cbind(formatC(buy,dig=0,wid=4,format="f",flag="0"))
  15.   win<-cbind(formatC(win,dig=0,wid=4,format="f",flag="0"))
  16.  
  17.   if (buy==win[1]) {
  18.   a+2500  
  19.   }else if (buy==win[2]){a<-a+2000
  20.   }  
  21.  
  22.   else if (buy==win[3]){a<-a+1500
  23.   }
  24.  
  25.   else if (buy==win[4]){a<-a+250
  26.   }
  27.   else if (buy==win[5]){a<-a+250
  28.   }
  29.   else if (buy==win[6]){a<-a+250
  30.   }
  31.   else if (buy==win[7]){a<-a+250
  32.   }
  33.   else if (buy==win[8]){a<-a+250
  34.   }
  35.   else if (buy==win[9]){a<-a+250
  36.   }
  37.   else if (buy==win[10]){a<-a+250
  38.   }
  39.   else if (buy==win[11]){a<-a+250
  40.   }
  41.   else if (buy==win[12]){a<-a+250
  42.   }
  43.   else if (buy==win[13]){a<-a+250
  44.   }
  45.  
  46.   else if (buy==win[14]){a<-a+150
  47.   }
  48.   else if (buy==win[15]){a<-a+150
  49.   }
  50.   else if (buy==win[16]){a<-a+150
  51.   }
  52.   else if (buy==win[17]){a<-a+150
  53.   }
  54.   else if (buy==win[18]){a<-a+150
  55.   }
  56.   else if (buy==win[19]){a<-a+150
  57.   }
  58.   else if (buy==win[20]){a<-a+150
  59.   }
  60.   else if (buy==win[21]){a<-a+150
  61.   }
  62.   else if (buy==win[22]){a<-a+150
  63.   }
  64.   else if (buy==win[23]){a<-a+150
  65.   }
  66.   else{a<-a-1 
  67.   lost_a<-lost_a-1}
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  
  74.  
  75.  
  76.  
  77.  
  78.  
  79.  
  80.  
  81.  
  82.  
  83.   if (buy==win[1]) {
  84.     b+3500  
  85.   }else if (buy==win[2]){b<-b+2000
  86.   }  
  87.  
  88.   else if (buy==win[3]){b<-b+600
  89.   }
  90.  
  91.   else if (buy==win[4]){b<-b+250
  92.   }
  93.   else if (buy==win[5]){b<-b+250
  94.   }
  95.   else if (buy==win[6]){b<-b+250
  96.   }
  97.   else if (buy==win[7]){b<-b+250
  98.   }
  99.   else if (buy==win[8]){b<-b+250
  100.   }
  101.   else if (buy==win[9]){b<-b+250
  102.   }
  103.   else if (buy==win[10]){b<-b+250
  104.   }
  105.   else if (buy==win[11]){b<-b+250
  106.   }
  107.   else if (buy==win[12]){b<-b+250
  108.   }
  109.   else if (buy==win[13]){b<-b+250
  110.   }
  111.  
  112.   else if (buy==win[14]){b<-b+70
  113.   }
  114.   else if (buy==win[15]){b<-b+70
  115.   }
  116.   else if (buy==win[16]){b<-b+70
  117.   }
  118.   else if (buy==win[17]){b<-b+70
  119.   }
  120.   else if (buy==win[18]){b<-b+70
  121.   }
  122.   else if (buy==win[19]){b<-b+70
  123.   }
  124.   else if (buy==win[20]){b<-b+70
  125.   }
  126.   else if (buy==win[21]){b<-b+70
  127.   }
  128.   else if (buy==win[22]){b<-b+70
  129.   }
  130.   else if (buy==win[23]){b<-b+70
  131.   }
  132.   else{b<-b-1 
  133.   lost_b<-lost_b-1}}
  134.  
  135.     income_a<-a
  136.  
  137.     income_b<-b
  138.  
  139.  
  140. result<-data.frame(income_a,income_b)
  141.  
Success #stdin #stdout #stderr 4.98s 45632KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
stderr
copy 
/bin/bash: line 15: 11616 CPU time limit exceeded R --vanilla --quiet --slave --encoding=UTF-8 --file=/home/pEwVeu/prog.r > a.out
https://ideone.com/5BIae6
language:
R (R 3.5.2)
created:
3 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!