Zamiana cyfr arabskich na rzymskie

[tomiskym]

Ćwiczenie 14
Napisz skrypt zamieniający liczby całkowite w przedziale od 1 do 2999 podane w układzie arabskim
na odpowiadające im liczby w układzie rzymskim. Skrypt ma wczytać liczbę arabską z konsoli, wynik również
ma trafić na konsolę. Oto potrzebne liczby rzymskie i ich arabskie odpowiedniki:
I - 1 II - 2 III - 3 IV - 4 V - 5
VI - 6 VII - 7 VIII - 8 IX - 9
X - 10 XX - 20 XXX - 30 XL - 40
L - 50 LX - 60 LXX - 70 LXXX - 80 XC - 90
C - 100 CC - 200 CCC - 300 CD - 400 D - 500
DC - 600 DCC - 700 DCCC - 800 DM - 900
M - 1000 MM – 2000

Witam serdecznie, algorytm zmiany liczb arabskich na rzymskie na tym poziomie edukacji PERL to dla mnie czarna magia (patrzyłem na implementacje C# która jest bardzo rozbudowana). Wydaje mi się że da się to zrobić w łatwiejszy sposób, jako że miałem dopiero 2 zajęcia z tego tematu i ćwiczeniowiec podał dużo liczb przydatnych do zadania, a nie tylko kilka pojedyńczych znaków. Czy ktoś posiada taki przykład?

[Mad_Dud]

Do nauki.

• Perl Tutorial Hub
• Learn Perl - learn.perl.org
• http://cpansearch.perl.org/src/TELS/.../Math/Roman.pm