string_bench.p6

my $*test-count = 0;
my @results;
my $b1 = { .defined };
my $b2 = { 0 ≤ $_ };
test-it({
    my $b = 'a' x 999999 ~ 'b';
    $b ~~ /b/ for ^400;
}, $b1, 10000);
test-it({
    my $b = 'a' x 999999 ~ 'b';
    use nqp;
    nqp::index($b, 'b', 0);
},
$b2,
10 );
sub test-it (&code, &eval, Int:D $times = 1) {
    my $t1 = now;
    my $rtrn;
    for ^$times {
        $rtrn = &code;
    }
    die unless &eval($rtrn);
    my $tot = now - $t1;
    @results.push: $tot;
    say "Test {++$*test-count}: $tot s";
}