Rechenproblem (solved) (Allgemeines zu Perl)

[thread]16299[/thread]

Rechenproblem [solved]

Tags: perl5 Similar Threads

Readers: 22

Articles: hide open all | hide show old branches

+9 replies
bianca

2011-05-15 16:08
User since
2009-09-13
6923 articles
BenutzerIn
Hi!
Hab hier ein kleines Rechenproblem und bitte um Hilfe.
Es geht um eine Anzahl Einträge $anzahl und eine Anzahl maximaler Darstellungen $max.
Ich möchte gern, dass bei $anzahl > $max nur jeder xte angezeigt wird. Beispiel: Bei $anzahl = 20 sollen der erste, der dritte, der fünfte, also jeder zweite angezeit werden.
Bei $anzahl = 30 jeder dritte damit am Ende immer ungefähr 10 rauskommen.

Aber folgender Code löst das nicht. Warum nicht?
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

#!/usr/bin/perl -w use strict; use warnings; my $max = 10; my $anzahl = 30; my $lfd = 0; foreach my $nr (1..$anzahl) { if ( int ($anzahl / $max) < 2 || $nr % int ($anzahl / $max) ) { $lfd ++; print "Nr. $nr kommt rein, Anzeige Nr. $lfd\n"; } }
10 print "Hallo"
20 goto 10
- +2 replies
- bianca
  
  2011-05-15 16:32
  User since
  2009-09-13
  6923 articles
  BenutzerIn
  So funktioniert es.
  Es variiert zwar bis 19 das macht aber nichts.
  
  Frage nur, ob das auch eleganter geht?
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
  
  #!/usr/bin/perl -w use strict; use warnings; my $max = 10; my $anzahl = 20; my $lfd = 0; foreach my $nr (1..$anzahl) { if ( $anzahl <= $max || int ($nr / int ($anzahl / $max)) == $nr / int ($anzahl / $max) ) { $lfd ++; print "Nr. $nr kommt rein, Anzeige Nr. $lfd\n"; } }
  
  10 print "Hallo"
  20 goto 10
  - FIFO
    
    2011-05-15 23:12
    User since
    2005-06-01
    469 articles
    BenutzerIn
    
    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 )
    
    1 2 3 4 5 6 7 8 9 10
    
    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 )
    
    1 2 3 4 5 6 7 8 9 10
    
    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"
- +4 replies
- GwenDragon
  
  2011-05-15 16:37
  User since
  2005-01-17
  14422 articles
  Admin1
  Ich hoffe ich verstehe deine Aufgabenstellung richtig.
  
  Probier mal das:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10
  
  my $max = 10; my $anzahl = 30; my $add = int ($anzahl / $max); my $lfd = 1; foreach my $nr (1..$anzahl) { last if $nr > 10; print "Nr. $nr kommt rein, Anzeige Nr. $lfd\n"; $lfd += $add; }
  
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
  - +3 replies
  - bianca
    
    2011-05-15 16:43
    
    User since
    2009-09-13
    6923 articles
    BenutzerIn
    
    Irgendwie nicht so ganz. Das beendet ja die Schleife beim 11. Element?!
    10 print "Hallo"
    20 goto 10
    - +2 replies
    - Taulmarill
      
      2011-05-16 10:37
      
      User since
      2004-02-19
      1750 articles
      BenutzerIn
      
      Müssen denn alle Elemente durchlaufen werden? Es wäre wohl einfacher, nur die Positionen der Elemente zu berechnen. Vielleicht wird es in meinem Beispiel deutlicher:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13
      
      my $anzahl = $ARGV[0] || 19; my $max = $ARGV[1] || 10; my $step = ($anzahl-1) / ($max-1); my $pos = 1; if ( $anzahl <= $max ) { print "$_\n" for 1 .. $max; exit } for ( 1 .. $max ) { my $pick = int $pos; print "$pick\n"; $pos += $step; }
      
      $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
      - bianca
        
        2011-05-16 11:38
        
        User since
        2009-09-13
        6923 articles
        BenutzerIn
        
        2011-05-16T08:37:19 Taulmarill
        Müssen denn alle Elemente durchlaufen werden?
        
        Ja, müssen alle durchlaufen werden.
        10 print "Hallo"
        20 goto 10
- +2 replies
- FIFO
  
  2011-05-15 22:51
  
  User since
  2005-06-01
  469 articles
  BenutzerIn
  
  Willst Du die Randelemente 1 und $anzahl immer mit ausgeben? Bzw. willst Du immer bei 1 starten?
  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"
  - bianca
    
    2011-05-16 06:41
    
    User since
    2009-09-13
    6923 articles
    BenutzerIn
    
    2011-05-15T20:51:46 FIFO
    Willst Du die Randelemente 1 und $anzahl immer mit ausgeben? Bzw. willst Du immer bei 1 starten?
    
    Nein, das muss nicht.
    Aber ganz toll wäre, wenn es sich näher am $max orientieren würde.
    Bei deiner obigen Lösung ist es wie bei meiner.
    $anzahl=19 stellt quasi einen Extremwert dar, es zeigt alle 19 an, obwohl $max=10 ist.
    Ich weiß, anfangs war es mir egal aber jetzt fände ich es doch gut :)
    10 print "Hallo"
    20 goto 10

View all threads created 2011-05-15 16:08.