Pointless benchmark

primes.p6

#!/usr/bin/env perl6
sub get_primes(int $n) {
    return () if $n < 2;
    return (2) if $n == 2;

    my int @s = ();
    loop (my int $i = 3; $i <= $n; $i+=2) {
        @s.push($i);
    }

    my int $mroot = Int(sqrt($n));
    my int $half = @s.elems;

    $i = 0;
    my int $m = 3;
    loop ($i = 0; $m <= $mroot; $i++) {
        if @s[$i] {
            my int $j = ($m*$m - 3) div 2;

            @s[$j] = 0;
            while ($j < $half) {
                @s[$j] = 0;
                $j += $m;
            }
        }
        $m = 2 * ($i + 1) + 3;
    }
    @s.unshift: 2;
    return @s.grep: {$_};
}

for ^10 {
    my @res = get_primes(10000000);
    put "Found {@res.elems} prime numbers.";
}