quantilanci = 1000000

DadoDeDadis = sample(1:6, quantilanci, replace = TRUE)
DadinaDeDadis = sample(1:6, quantilanci, replace = TRUE)

duedadi = DadoDeDadis + DadinaDeDadis

undicifacce = sample(2:12, quantilanci, replace = TRUE)


par(mfrow = c(1,2))
minimo = 2
massimo = 13
tagli = minimo : massimo - 0.5
hist(duedadi, breaks = tagli, col = "orange")
hist(undicifacce, breaks = tagli, col = "violet")