Re: The 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,