Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
tree: a13ba16801
Fetching contributors…

Cannot retrieve contributors at this time

19 lines (17 sloc) 0.367 kb
my sub next-prime(*@primes) {
my $i = @primes[*-1];
return 3 if $i == 2;
loop {
$i += 2;
my $prime = True;
for @primes {
if $i %% $_ {
$prime = False;
last;
}
}
return $i if $prime;
}
}
my @primes := 2, 3, &next-prime ... *;
say @primes.munch(350).perl;
Jump to Line
Something went wrong with that request. Please try again.