Thread Mit Perl rechnen (76 answers)
Opened by Napstack at 2008-07-03 17:04

KurtZ
 2008-07-04 20:05
#111858 #111858
User since
2007-12-13
411 Artikel
BenutzerIn
[default_avatar]
Ronnie+2008-07-04 17:51:26--
Als Anregung dient dir evtl. folgendes Snippet:
Code (perl): (dl )
    $i % $_ == 0 and return for 2..(($i/2)+1);


Ich starre nun seit 2 Minuten auf diese Zeile und empfinde sie als Anregung Python zu erlernen!

NACHTRAG: so wirds etwas lesbarer
Code (perl): (dl )
1
2
3
        for my $teiler (2..(($i/2)+1)) {
                return 0 if $i % $teiler == 0;   # Abbrechen wenn kein Rest bleibt
        }


aber mathematisch wärs erstens sinnvoller nur die teiler bis wurzel i zu betrachten, und zwotens könnte man sich auf die bekannten Primzahlen kleiner sqrt(i) beschränken, statt alle Zahlen zu betrachten. Das käme dem Sieb des Erathostenes viel näher.
TMTOWTDYOG (there's more than one way to dig your own grave)

View full thread Mit Perl rechnen