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}

Un esempio d'uso:

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}
[1] 3350
r
[1] MMMCCCL
n = floor(runif(1)*3899+1); if(runif(1)>0.5) {print(n);r = ro(n)} else {print(ro(n));r = n}
[1] MDLXXIV
r
[1] 1574

Il docente può usare esercizi come questo anche per compiti in classe, facendo mettere ai vari alunni, in testa al file,  set.seed(N)  con N numeri interi diversi.

Per altri commenti: La numerazione babilonese neGli Oggetti Matematici.