Untitled
123456789101112131415
sub prime-sieve($nd) {
my @sieve is default(True) = False, False;
loop (my $i = 2; $i <= sqrt($nd); $i++) {
if (@sieve[$i]) {
loop (my $j = $i**2; $j <= $nd; $j += $i) {
@sieve[$j] = False;
}
}
}
do for @sieve.kv -> $i, $is-prime {
$i if $is-prime;
}
}
say prime-sieve(100);
Raku
INFO