1: my $str = uc shift @_; 2: 3: 4: if($str =~ s/XLVIII$/IL/) { 5: } elsif($str =~ s/VIII$/IX/) { 6: } elsif($str =~ s/III$/IV/) { 7: } elsif($str =~ s/DCCCXCIX$/CM/) { 8: } elsif($str =~ s/CCCXCIX$/CD/) { 9: 10: } elsif($str =~ s/LXXXIX$/XC/) { 11: } elsif($str =~ s/XXXIX$/XL/) { 12: 13: 14: } elsif($str =~ s/(I{1,2})$/$1I/) { 15: 16: } elsif($str =~ s/CDXCIX$/D/) { 17: } elsif($str =~ s/CMXCIX$/M/) { 18: } elsif($str =~ s/XCIX$/C/) { 19: 20: } elsif($str =~ s/I([VXLCDM])$/$1/) { 21: } elsif($str =~ s/([VXLCDM])$/$1I/) { 22: } 23: 24: return $str;
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: symbolic increment of roman numerals
by thelenm (Vicar) on May 03, 2002 at 16:12 UTC | |
Re: symbolic increment of roman numerals
by Fastolfe (Vicar) on May 04, 2002 at 16:04 UTC | |
by PetaMem (Priest) on May 05, 2002 at 12:21 UTC | |
Re: symbolic increment of roman numerals
by belg4mit (Prior) on May 03, 2002 at 21:00 UTC |
Back to
Craft