jnthn · October 15, 2011 14:50
diff --git a/b.pl b/b.pl
 use v5.10;
 use Time::HiRes qw(time);

 my $t = time();
 system('perl -E "my $i = 0; while ($i < 10000000) { $i = $i + 1 }; say $i"');
 say time() - $t;

 $t = time();
 system('perl6 --optimize=3 -e "my int $i = 0; while $i < 10000000 { $i = $i + 1 }; say $i"');
 say time() - $t;
diff --git a/results b/results
 10000000
 0.745043039321899
 10000000
 4.34311890602112
	use v5.10;
	use Time::HiRes qw(time);

	my $t = time();
	system('perl -E "my $i = 0; while ($i < 10000000) { $i = $i + 1 }; say $i"');
	say time() - $t;

	$t = time();
	system('perl6 --optimize=3 -e "my int $i = 0; while $i < 10000000 { $i = $i + 1 }; say $i"');
	say time() - $t;