Help for this page

Select Code to Download


  1. or download this
    # rtoa-pgatram-mce.pl
# Example run: perl rtoa-pgatram-mce.pl t1.txt >mce.tmp
...
my $tstart = time;
roman_to_arabic(\@rtoa_files);
warn sprintf("time %0.03f secs\n", time - $tstart);
  2. or download this
    # max_workers => 1
time reduce : 4.581 secs
time regex  : 4.658 secs