Re^2: Sieve of Eratosthenes Golf?

OK, I know I'm twisting things a little, but I don't consider the problem to be well formed anyway (what is the objective? to print all the prime numbers between 2 and 100? to implement the sieve of Erathosthenes? in a sub? with which output?)

Anyway, here's a basic enhancement, and I also trimmed two characters with s/100/99/ (hey, we all know 100 is not prime, right? O:-) )

for(2..99){$n{$y=$_}&&next;$n{$y+=$_}=1 while($_+$y)<=99;$n{$_}||print

I'm now at 71 chars.

Comment on Re^2: Sieve of Eratosthenes Golf? Download Code

Replies are listed 'Best First'.

Re^3: Sieve of Eratosthenes Golf?
by dragonchild (Archbishop) on Apr 07, 2005 at 13:24 UTC

$_{$.=$_}||do{{($_{$.+=$_}=$.+$_<=$,)&&redo}}for@.=2..($,=pop);grep!$_
+{$_},@.
[download]

My wife's blog

[reply]
[d/l]