Opened by hugenyn at 2011-05-12 23:16
User since
2010-10-05
65 Artikel
BenutzerIn
2010-10-05
65 Artikel
BenutzerIn
Bei der Berechnung befreundeter Zahlen will ich eine Fortschrittsanzeige mit dem * ausgeben.
Der print-*-Befehl Zeile 18 wird aber während des Schleifendurchlaufs nicht sondern erst nach Ende der while-Schleife Zeile 21 ausgeführt.
Was ist im Code falsch?
Der print-*-Befehl Zeile 18 wird aber während des Schleifendurchlaufs nicht sondern erst nach Ende der while-Schleife Zeile 21 ausgeführt.
Was ist im Code falsch?
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
my $fr=219;
my @wp;
while ($fr <= 10000)
{
my $i=0;my $m=$fr-1;
for (1..$m)
{
$i+= $_ unless ($fr % $_) ;
}
my $k=0;$m=$i-1;
for (1..$m)
{
$k+= $_ unless ($i % $_) ;
}
if ($k==$fr)
{
push @wp, [$fr,$i];
print "*";
}
$fr++;
}
print "\n";
for (@wp)
{
print "@$_\n";
}
print "\n";