Select Code to Download

Benchmark: timing 200000 iterations of Big, Pak, Str...
       Big: 10 wallclock secs (10.36 usr +  0.02 sys = 10.38 CPU) @ 19
+267.82/s (n=200000)
       Pak:  8 wallclock secs ( 9.81 usr +  0.03 sys =  9.84 CPU) @ 20
+325.20/s (n=200000)
       Str:  9 wallclock secs ( 8.30 usr +  0.02 sys =  8.32 CPU) @ 24
+038.46/s (n=200000)

sub mat_hash {
    my %cells;
...
   Pak => sub { pak_look($pak_ref) },
   Mat => sub { mat_look($mat_ref) },
};

#!/usr/bin/env perl

Benchmark: timing 200000 iterations of Big, Mat, Pak, Str...
       Big: 10 wallclock secs (10.06 usr +  0.02 sys = 10.08 CPU) @ 19
+841.27/s (n=200000)
...
       Mat:  8 wallclock secs ( 7.47 usr + -0.01 sys =  7.46 CPU) @ 26
+809.65/s (n=200000)
       Pak:  9 wallclock secs ( 9.66 usr +  0.02 sys =  9.68 CPU) @ 20
+661.16/s (n=200000)
       Str:  9 wallclock secs ( 8.09 usr +  0.01 sys =  8.10 CPU) @ 24
+691.36/s (n=200000)

$ perl -v | head -2 | tail -1
This is perl 5, version 26, subversion 0 (v5.26.0) built for darwin-th
+read-multi-2level