Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

(kudra: basketball) Re: (Golf): Sieve of Eratosthenes

by kudra (Vicar)
on May 19, 2001 at 15:44 UTC ( #81705=note: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    # Example use: @result = sieve(60);
    sub sieve {
    my$m=pop;my@l=(0..$m);for(my$x=0;$x<$m;$x++){next if($l[$x]<2);my $i=2
    +;my$n=0;for(;$n<$m;$i++){$n=$x*$i;next if($n>$m);$l[$
    n]=0}}@l=grep{$l[$_]}(0..$m)
    }
    
  2. or download this
    # Example of use: sieve(60);
    
    sub sieve {
    my$m=pop;@_=(2..$m);for my $c(@_){my%b=map{$_,1}grep{($_%$c)==0}($c+1.
    +.$m);@_=grep{!$b{$_}}@_}die"@_\n"
    }
    
  3. or download this
    # Example of use: @result = sieve(60);
    
    ...
    L:for(2..pop){for my $b(2..$_-1){next L if($_%$b<1)}push@_,$_}@_
    }
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://81705]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (11)
As of 2014-11-21 12:15 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (110 votes), past polls