use Benchmark qw(:all) ;
use PDL;

my @runs = (
	[1, 10_000_000],
	[10_000, 1000],
	[1000, 10_000],
	[10_000_000, 1]
);

for my $run (@runs) {
	my $count = $run->[0]; my $loops = $run->[1];
	print "Test with count: $count, loops: $loops\n" . "-" x 50 . "\n";
	timethese($count, {
		'for' => sub { my @out = (); for (1 .. $loops) { push @out, $_ * $_;} },
		'map' => sub { my @out = map { $_ * $_ } (1 .. $loops); },
		'pdl' => sub { my $in = pdl(1 .. $loops); my $out = $in * $in; }
	});
}