fermat's library pick 2.718 numbers implemented in R

euler.R

library(tidyverse)
set.seed(2718)

picks <- function(){
  x <- 0;    i <- 0
  while(x <1){
    i <- i+1
    x <- x + runif(n=1,min=0,max=1)
  }
  return (i)
}
myseq <- seq(1:100000) %>% as_tibble() %>% 
  rowwise() %>%  
  mutate(iter = picks()) %>% 
  ungroup() %>%
  mutate(x = row_number(),
         cummean = cumsum(iter) / row_number())

myseq %>%
  ggplot()+
  geom_line(aes(x= x, y = cummean),color="blue")+
  geom_line(aes(x=x, y= exp(1)))