Select Code to Download

sub lan_hash {
   # print "LanX_hash---------------\n";
...
   Str => sub { str_look($str_ref) }, # $cells->{ $p->[0] .':'. $p->[1
+] }
};

Benchmark: timing 200000 iterations of Big, Lan, Mat, Pak, St2, St3, S
+tr...
 Big: 5 wallclock secs ( 6.14 usr + 0.01 sys = 6.15 CPU) @ 32520.33/s 
+(n=200000)
...
 St3: 2 wallclock secs ( 2.11 usr + 0.00 sys = 2.11 CPU) @ 94786.73/s 
+(n=200000)
 Str: 6 wallclock secs ( 5.11 usr + 0.00 sys = 5.11 CPU) @ 39138.94/s 
+(n=200000)