http://qs1969.pair.com?node_id=1120185


in reply to Not a Sieve

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,