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

Napstack
 2008-07-03 17:04
#111759 #111759
User since
2008-07-03
32 articles
BenutzerIn
[default_avatar]
Also zum ersten, hallo erstmal.
So jetzt zu meinem Problem. Ich fang grad mit Perl an und hab mir überlegt, wie ich möglichst viele meiner Probleme in eine Aufgabe pakken kann.
Dass ist dabei raus gekommen.
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
print "bis zu welcher Zahl sollen die Primzahlen gesucht werden?";
$Ziel = <STDIN>;
chomp = $Ziel;
@prime = ("2");
foreach $Zahl (3..$Ziel) {
$Zahl geteilt durch alle Zahlen in @prime;
if $Zahl % jeweil die Zahlen aus @prime (größer als 0) {
print "$Zahl";
$Zahl in @prime speichern;
}
}


Kann mir wer das korrigieren/verfolständigen?

View full thread Mit Perl rechnen