# -----------------------------------------------------------------------
# Esercizio 3.21. Si lanciano una volta tre dadi non truccati. Sapendo
# che non risultano dadi con la stessa faccia, calcolare la probabilità
# che la somma dei punti sia 9.
# -----------------------------------------------------------------------
dado <- c(1:6)
prove <- 100000
num <- 0; den <- 0
for (i in 1:prove) {
    out <- sample(dado,size=3,replace=TRUE)
    ris <- intersect(out,dado)
    if (length(ris)==3) {
       den <- den + 1
       if (sum(out)==9) num <- num+1
    }
}
cat(num,den,num/den,"\n")
# -----------------------------------------------------------------------