perl/Primes.pm


1
2
3
4
5
6
7
8
9
10
11
12
13

package Primes;

my $last_prime = 2;
my @primes = (2);

sub sieve {
	my $n = shift;
	push @primes, $n;
	my @copy = @primes;
	return \@copy;
}

1;