# Esercizio 4.62: il secondo problema della roulette “Royal Oak”.
RoyalOak <- c(1:32)
prove <- 100000
num <- 0; den <- 0
guadagno <- 0
npuntato <- 16

for (i in 1:prove)
{
    out <- sample(RoyalOak,size=22,replace=TRUE)
    ris <- out==npuntato
    guadagno <- guadagno + ifelse(sum(ris)>0,1,-1)
    if (sum(ris)>0) num <- num + 1
    den <- den + 1
}

cat(num,den,num/den,"\n")
print(guadagno/prove)