Help for this page

Select Code to Download


  1. or download this
    qw(IV XL CD V L D IX XC CM X C M)
  2. or download this
    (IV,XL,CD,V,L,D,IX,XC,CM,X,C,M)
  3. or download this
    #!perl -pl
@%{@;}=0..map+s!.!y$IVCXL426(-:$XLMCDIVX$dfor$;[$_].=5x$&*8%29628!eg,!
+y/m/-/..3999;s/\w+/+$%{$&}/g;$_=$;[eval]