Select Code to Download

my $val = $my_pdl->index($i);

my $val = $my_pdl->at($i);

#!/usr/bin/env perl

...

    return;
}

              Rate  pdl_values perl_values
pdl_values  16.8/s          --        -74%
perl_values 64.1/s        282%          --

#!/usr/bin/env perl

...
    return;
}

              Rate  pdl_values perl_values
pdl_values  1.51/s          --        -97%
perl_values 52.1/s       3347%          --

pdl> $a = xvals(5)*2; # $a is a PDL
pdl> $a4 = $a->at(4); # $a4 is a perl scalar

pdl> @a = $a->list; pdl> for($a->list) { print $_, - ; }
0-2-4-6-8-