Questa funzione risolve il problema del calcolo della probabilita'
di trovare due persone in un gruppo di n nate lo stesso
giorno.
birthday(n)
numero di persone nel gruppo
n <- c(5,10,15,20,21,22,23,24,25,30,50,60,
70,80,90,100,200,300,365)
for(i in n)
cat("\n n=",i,"P(A)=",birthday(i))
Run the code above in your browser using DataLab