Sha256: 64f28676bb1042cef58a07e0c43a1811ab77cb6bdafe38215c3b1e09b3e8e023
Contents?: true
Size: 559 Bytes
Versions: 323
Compression:
Stored size: 559 Bytes
Contents
package Example;
use strict;
use warnings;
sub new {
my ($class, $max) = @_;
die "ArgumentError, number too small: $max" if $max < 2;
bless { max => $max }, $class;
}
sub primes {
my $self = shift;
my $prime = 2;
return [$prime] if $self->{max} == $prime;
my @list = 3..$self->{max};
my @primes = ($prime,);
while(@list > 0) {
my @candidates = grep { $_ % $prime != 0 } @list;
$prime = shift @candidates;
push @primes => $prime;
@list = @candidates;
}
return [@primes];
}
1;
Version data entries
323 entries across 323 versions & 1 rubygems