set.seed(2006)
n <- 1e4
n_people <- 80
j <- 2:n_people
days <- 1:365
find_match <- function(x, d) {
y <- sample(d, x, replace = TRUE)
match_found <- length(unique(y)) < length(y)
}
prop <- numeric(n_people - 1)
for (i in seq_along(j)) {
matches <- replicate(n, find_match(j[i], days))
prop[i] <- mean(matches)
}




