Thread Mit Perl rechnen
(76 answers)
Opened by Napstack at 2008-07-03 17:04 Ronnie+2008-07-04 17:51:26-- 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)
|