public
Created

Artificial benchmark for index scan

  • Download Gist
bench.nqp
Perl6
1 2 3 4 5 6 7
my str $target := nqp::x('abc', 500) ~ 'def';
 
my $before := nqp::time_n();
say($target ~~ /def/);
my $after := nqp::time_n();
 
say($after - $before);

Please sign in to comment on this gist.

Something went wrong with that request. Please try again.