Bonjour, je ne suis pas certain d'avoir compris, mais voici une piste : set.seed(2021)n <- 10R <- L <- numeric(0)for(i in seq_len(n)){ if(sample(c(-1, 1), 1) == 1){ L <- c(L, runif(1)) } else { imin <- which.min(L) R <- c(R, L[imin]) L <- L[-imin] }} Amicalement, jean lobry