Select Code to Download

use Benchmark qw(:all) ;
use PDL;
...
        'pdl' => sub { my $in = pdl(1 .. $loops); my $out = $in * $in;
+ }
    });
}

Test with count: 1, loops: 10000000
--------------------------------------------------
...
       for: 10 wallclock secs ( 8.82 usr +  0.01 sys =  8.83 CPU) @ 11
+32502.83/s (n=10000000)
       map:  7 wallclock secs ( 6.40 usr + -0.01 sys =  6.39 CPU) @ 15
+64945.23/s (n=10000000)
       pdl: 201 wallclock secs (198.35 usr +  0.28 sys = 198.63 CPU) @
+ 50344.86/s (n=10000000)