my%x;my$l=pop;for(2..$l){$x{$_}||=0||do{my$m=2*$_;{$x{$m}=1;($m+=$_)<= +$l&&redo}}}grep!$x{$_},keys%x [download]
In reply to Re: Sieve of Eratosthenes Golf? by dragonchild in thread Sieve of Eratosthenes Golf? by Cody Pendant