t <- 0; d <- 0
for(i in 1:100e3){p <- runif(3); if(p[1]+p[2] < 1) t <- t+1; if (sum(p) < 1) d <- d+1}
paste("t/d =",t/d,"  t =",t)
for(i in 1:100e3){p <- runif(3); if(p[1]+p[2] < 1) t <- t+1; if (sum(p) < 1) d <- d+1}
paste("t/d =",t/d,"  t =",t)
for(i in 1:100e3){p <- runif(3); if(p[1]+p[2] < 1) t <- t+1; if (sum(p) < 1) d <- d+1}
paste("t/d =",t/d,"  t =",t)
for(i in 1:100e3){p <- runif(3); if(p[1]+p[2] < 1) t <- t+1; if (sum(p) < 1) d <- d+1}
paste("t/d =",t/d,"  t =",t)
for(i in 1:100e3){p <- runif(3); if(p[1]+p[2] < 1) t <- t+1; if (sum(p) < 1) d <- d+1}
paste("t/d =",t/d,"  t =",t)
#  "t/d = 3.01886222114745   t = 49935"
#  "t/d = 3.02481359616023   t = 100203"
#  "t/d = 3.02521364076105   t = 150099"
#  "t/d = 3.01519010232222   t = 200085"
#  "t/d = 3.01503323962694   t = 249895"
#  "t/d = 3.00632429290196   t = 299953"