Rechenproblem (gelöst) - #148655 (Allgemeines zu Perl)

FIFO

2011-05-15 23:12

User since
2005-06-01
469 Artikel
BenutzerIn

user image

2011-05-15T14:32:58 bianca
Frage nur, ob das auch eleganter geht?

Ich würde int($anzahl/$max) nur einmal berechnen und die Schleife übersichtlicher machen:

Code (perl): (dl )

my $max    = 10;
my $anzahl = 451;
my $step   = int($anzahl/$max);
my $lfd    = 0;

foreach my $nr (1..$anzahl) {
    next if $anzahl > $max and $nr % $step;
    $lfd ++;
    print "Nr. $nr kommt rein, Anzeige Nr. $lfd\n";
}

Output:

Code: (dl )

Nr. 45 kommt rein, Anzeige Nr. 1
Nr. 90 kommt rein, Anzeige Nr. 2
Nr. 135 kommt rein, Anzeige Nr. 3
Nr. 180 kommt rein, Anzeige Nr. 4
Nr. 225 kommt rein, Anzeige Nr. 5
Nr. 270 kommt rein, Anzeige Nr. 6
Nr. 315 kommt rein, Anzeige Nr. 7
Nr. 360 kommt rein, Anzeige Nr. 8
Nr. 405 kommt rein, Anzeige Nr. 9
Nr. 450 kommt rein, Anzeige Nr. 10

Dabei fallen die Randelemente ggf. weg. Wenn das ok ist, voilá.

Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"