t <- 0; s <- 0 dadi <- sum(floor(runif(2)*6)+1); t <- t+1; if(dadi>7) s <- s+1; write(c(t,s/t),file="") # o: dadi <- sum(floor(runif(2,min=1,max=7))); t <- t+1; ... 1 1 dadi <- sum(floor(runif(2)*6)+1); t <- t+1; if (dadi>7) s <- s+1; write(c(t,s/t),file="") 2 1 dadi <- sum(floor(runif(2)*6)+1); t <- t+1; if (dadi>7) s <- s+1; write(c(t,s/t),file="") 3 1 # eccetera, ricaricando col tasto freccia-su il comando precedente # ... 50 0.46 # ... 100 0.41 # ... 200 0.425