Primzahlen finden: wie würdet ihr es machen ? - #66107 (Allgemeines zu Perl)

lichtkind

2006-05-15 16:29

User since
2004-03-22
5680 Artikel
ModeratorIn + EditorIn

schnellst methode primzahlen zu sieben ist das sieb des eresthotenes:

Code: (dl )

use strict;

my $max = 100; # obergrenze bis wohin wir berechnen
my @sieb=(0..$max); # sieb des erestothenes

for my $i (2..($max/2)){
  next unless $sieb[$i];
  $sieb[$i*$_] = 0 for 2..int $max/$i; 
}

# ausgabe
for my $i (2..$max) { print "$sieb[$i] " if $sieb[$i] }

bei sher grossen zahlen vielleicht besser

Code: (dl )

use strict;

my $max = 100; # obergrenze bis wohin wir berechnen
my @sieb = $max; # sieb des erestothenes

for my $i (2..($max/2)){
  next if $sieb[$i];
  $sieb[$i*$_] = 1 for 2..int $max/$i; 
}

# ausgabe
for my $i (2..$max) { print "$i " unless $sieb[$i] }

\n\n

Tutorien in der Wiki, mein zeug:
kephra, baumhaus, garten, gezwitscher

Es beginnt immer mit einer Entscheidung.