Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery

Not a Sieve

by Schmunzie (Sexton)
on Mar 16, 2015 at 10:51 UTC ( #1120170=obfuscated: print w/replies, xml ) Need Help??

$i++;while(@p<50){$i++;&d;print"$i,"x!$x}sub d{for(@p){if($x=(!($i%$_))){return}}push@p,$i}

Replies are listed 'Best First'.
Re: The Sieve
by Athanasius (Chancellor) on Mar 16, 2015 at 14:16 UTC

    Hello Schmunzie,

    Nice! I like the way you’ve used the x operator. By removing the subroutine I was able to golf it down to this:

    for($i=2;@p<50;++$i){$x=!!($i%$_)or goto _ for@p;push@p,$i;_:print"$i, +"x$x}

    16 characters saved, plus a C-style for loop and a goto! Bwahaha!

    Athanasius <°(((><contra mundum Iustus alius egestas vitae, eros Piratica,

      Love it! I didn't know that goto existed in Perl. Oh what fun to be had. Now all we need is ALTER from COBOL (anyone remember that?)
      Oops, at the risk of being picky, your solution doesn't print 2.
Also not a sieve
by ambrus (Abbot) on Mar 16, 2015 at 15:55 UTC

      Which is not a Sieve! But then the OP's proposal is neither...

      Update: this is a sieve (specify sieve size on command line):

      $_=";"x(pop);s;.;.;;$;=~s:.:.:g,s:($;).:$1.:g,s,($;).,$1:,while($;)=m: +(.+?);:;s;:;1+pos();ge;say
        It's not. Hm.. gotta write a real one now.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://1120170]
Approved by Athanasius
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (8)
As of 2018-07-17 12:20 GMT
Find Nodes?
    Voting Booth?
    It has been suggested to rename Perl 6 in order to boost its marketing potential. Which name would you prefer?

    Results (363 votes). Check out past polls.