Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot

Re^2: Prime number generator

by liverpole (Monsignor)
on Jul 17, 2006 at 20:54 UTC ( #561854=note: print w/replies, xml ) Need Help??

in reply to Re: Prime number generator
in thread Prime number generator

Stunning! ++

But you realize, of course ...

#!/usr/bin/perl -l $o=1;{(grep!($o%$_),2..$o++)||print$o;redo}

That's 43.

It's a little slower (but then we sacrificed speed a while back ;-))

Update:  Make that 42 ...

#!/usr/bin/perl -l $o=1;{grep!($o%$_),2..$o++or print$o;redo}


Replies are listed 'Best First'.
Re^3: Prime number generator
by rhesa (Vicar) on Jul 17, 2006 at 21:11 UTC
    Hey, making it post-increment is clever! Well spotted :)

    I had a hard time getting those stupid brackets out of there. At some point, I realised that I was being bitten by buffered output, and didn't think about them anymore.

    I think 42 is perfect!

Re^3: Prime number generator
by Ieronim (Friar) on Jul 17, 2006 at 21:30 UTC
    Cool :) ++

         s;;Just-me-not-h-Ni-m-P-Ni-lm-I-ar-O-Ni;;tr?IerONim-?HAcker ?d;print

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://561854]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (8)
As of 2018-06-19 15:07 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (114 votes). Check out past polls.