Select Code to Download

use strict;
use warnings;
...
__END__

[ 0.4608755 0.55562806]

use strict;
use warnings;
...

[0.49384165 0.49941814]
6.11959099769592

use strict;
use warnings;
...

[0.49384165 0.49941814]
4.57857203483582

use PDL::Parallel::threads qw/ share_pdls retrieve_pdls /;
share_pdls x => $x, avg => $avg;
( $x, $avg ) = retrieve_pdls qw/ x avg /;

$ perl -v

...

$ perl -MPDL -E 'say $PDL::VERSION'
2.019