Select Code to Download

sub sieve {
my@p;@_=2..pop;{push@p,$p=shift;redo if@_=grep$_%$p,@_}@p
}

sub sieve {
my@p;@_=2..pop;{push@p,shift;redo if@_=grep$_%$p[-1],@_}@p
}