Wapp – a single-file web framework by the creator of SQLite(wapp.tcl.tk)

    sieve_sundaram(1000)

    sieve_sundaram(1e3)

    sub sieve_sundaram(int $n) {
        my %a;
        my int @s = 2;
        my int $m = $n div 2 - 1;
        for 1..$n -> int $i {
            for $i..$n -> int $j {
                my int $p = $i + $j + 2 * $i * $j;
                if $p < $m {
                    %a{$p} = True;
                }
            }
        }
        for 1..$m -> int $k {
            if ! %a{$k} {
                my int $q = 2 * $k + 1;
                @s.push($q);
            }
        }

        return @s;
    }

    sieve_sundaram(1000);