fork(7) download
copy 
  1. ve55 <- rep(NA,1000)
  2.  
  3. for (i in 1:1000) {
  4. ve1 <- vector()
  5.  
  6. ve1 <- c(ve1,sample(1:6,2,replace=T))
  7.  
  8. if (all(ve1[(length(ve1)-1):length(ve1)]==c(5,5))){
  9.     #print(length(ve1))
  10.  } else {
  11.  
  12.   while(!all(ve1[(length(ve1)-1):length(ve1)]==c(5,5))){
  13. 	ve1 <- c(ve1,sample(1:6,1,replace=T))
  14. 	}
  15.   #print(length(ve1))
  16.  
  17. }
  18. ve55[i] <- length(ve1)
  19. }
  20.  
  21.  
  22.  
  23. #################################################################
  24.  
  25. ve36 <-  rep(NA,1000)
  26.  
  27. for (i in 1:1000) {
  28. ve1 <- vector()
  29.  
  30. ve1 <- c(ve1,sample(1:6,3,replace=T))
  31.  
  32. if (paste(ve1,collapse='') %in% c('666','663','636','366','333','336','363','633')){
  33.     #print(length(ve1))
  34.  } else {
  35.  
  36.   while(!paste(ve1[(length(ve1)-2):length(ve1)],collapse='') %in% c('666','663','636','366','333','336','363','633')){
  37. 	ve1 <- c(ve1,sample(1:6,1,replace=T))
  38. 	}
  39.   #print(length(ve1))
  40.  
  41. }
  42. ve36[i] <- length(ve1)
  43. }
  44.  
  45. ###################################################################
  46. mean(ve55) 
  47. mean(ve36)
Success #stdin #stdout 2.28s 27720KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
[1] 40.084
[1] 40.205
https://ideone.com/TbLdDe
language:
R (R 3.5.2)
created:
10 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!