# -----------------------------------------------------------------------
# Esercizio 4.7. Calcolare il valor medio del prodotto dei numeri
# che appaiono su tre carte estratte a caso da tre diversi mazzi
# di 40 carte.
# -----------------------------------------------------------------------
mazzo <- rep(c(1:10),4)
nlanci <- 100000
out <- sample(mazzo,size=3*nlanci,replace=TRUE)
ris <- matrix(out,ncol=3)
ncr <- apply(ris,1,prod)
mean(ncr)
var(ncr)
# -----------------------------------------------------------------------