# il gioco dell’un-due-tre.
carte <- rep(c(1:10),4)
sqnz <- c(rep(c(1,2,3),13),1)
prove <- 100000
num <- 0; den <- 0

for (i in 1:prove)
{
    out <- sample(carte,size=40,replace=FALSE)
    den <- den+1
    ris <- (out == sqnz)
    if (sum(ris)==0) num <- num+1
}

cat(num,den,num/den,"\n")