http://www.perlmonks.org?node_id=81771


in reply to Re: Re: (Golf): Sieve of Eratosthenes
in thread (Golf): Sieve of Eratosthenes

Abusing the rules for fun and profit (46 chars):
sub sieve { sub p{$_[0],@_>1?p(grep$_%$_[0],@_):1}p 2..pop }
   MeowChow                                   
               s aamecha.s a..a\u$&owag.print