Help for this page

Select Code to Download

Select or download this

cmpthese(10000, {
   'orig' => sub { foreach my $x ( 0..9, 'a'..'v', 'A'..'V' ) { $x = M
+yMod::MapChar($x); }},
   'new'  => sub { foreach my $x ( 0..9, 'a'..'v', 'A'..'V' ) { $x = M
+yMod::MapChar2($x); }},
   }
);