Con le seguenti istruzioni in R viene generato, a caso, un numero naturale scritto in base dieci o in notazione romana. Prova a tradurlo da una forma di rappresentazione all'altra e controlla la risposta battendo r.  Svolgi più volte l'esercizio ricopiando l'ultima riga.

de = function(n) for (i in 1:3899) {if(as.roman(n)==i) print(i)}; ro = function(n) as.roman(n)
n = floor(runif(1)*3899+1); if(runif(1)>0.5) {print(n);r = ro(n)} else {print(ro(n));r = n}