carte <- matrix(NA,nrow=52,ncol=2)

valore <- c("asso","due","tre","quattro","cinque",
            "sei","sette","otto","nove","dieci",
            "fante","donna","re")

seme <- c("cuori","quadri","fiori","picche")

carte[,1] <- rep(valore,4)
carte[,2] <- rep(seme,each=13)

mazzo <- c(1:52)


# quesito a)
prove <- 100000
num <- 0; den <- 0
for (i in 1:prove)
{
    ok <- sample(mazzo,size=2,replace=FALSE)
    carta <- carte[ok,]
    den <- den + 1
    if (carta[1,2]=="fiori" & carta[2,2]=="fiori") num <- num + 1
}

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


# quesito b)
prove <- 100000
num <- 0; den <- 0
for (i in 1:prove)
{
    ok <- sample(mazzo,size=2,replace=FALSE)
    carta <- carte[ok,]
    if (carta[1,2]=="fiori") {
       den <- den + 1
       if (carta[2,2]=="fiori") num <- num + 1
    }
}

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