in reply to
RE: RE: RE: RE: sieve of erothenes
in thread sieve of erothenes
You know, you are right. I had thought I had done it in the right order, but I didn't... I screwed that up. I guess I would have to use:
@_=(1);L:for(2..100){$i=0;while(@_>++$i){next L if!($_%$_[$i])}push@_,
+$_}
which uses 2 more chars. Sigh.
UPDATE:
I can do it with one less char then above, but still too many.:
@_=(1);L:for(2..100){$i=-@_;while(++$i){next L if!($_%$_[$i])}push@_,$
+_}
Yes, I lie awake at night thinking about this stuff. No, not really. But when I get started thinking about it, I have a hard time stopping. But I doubt I'm alone in that disease. :)
