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


in reply to (tye)Re2: (Golf): Sieve of Eratosthenes
in thread (Golf): Sieve of Eratosthenes

53 characters: 
sub sieve2 {
    grep{@_[map$a*$_,2..@_/($a=$_)]=0if$_[$_]>1}@_=0..pop
}

[download]
All your t-shirts are belong to me! j/k :-) 
   MeowChow                                   
               s aamecha.s a..a\u$&owag.print

In Section Meditations