Re: The Sieve

by Athanasius (Archbishop)

on Mar 16, 2015 at 14:16 UTC ( [id://1120185]=note: print w/replies, xml )

Need Help??

in reply to Not a Sieve

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}
[download]

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

Comment on Re: The Sieve Select or Download Code

Replies are listed 'Best First'.

Re^2: The Sieve
by Schmunzie (Beadle) on Mar 17, 2015 at 03:49 UTC

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?)

Re^2: The Sieve
by Schmunzie (Beadle) on Mar 17, 2015 at 17:01 UTC

Oops, at the risk of being picky, your solution doesn't print 2.

by Athanasius (Archbishop) on Mar 18, 2015 at 02:19 UTC

D’oh! Don’t know how I missed that. This one (77 characters) does print 2:

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

Cheers,

Domain Nodelet^?

Node Status^?

node history
Node Type: note [id://1120185]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others learning in the Monastery: (8)

As of 2024-04-20 00:21 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?

No recent polls found