laufende Summe ueber Hash berechnen (gelöst) (Allgemeines zu Perl)

[thread]17498[/thread]

laufende Summe ueber Hash berechnen [gelöst]

Tags: perl5 List::MoreUtils Ähnliche Threads

Leser: 13

Articles: hide open all | hide show old branches

+7 replies
Liffi

2012-06-19 15:29
User since
2011-11-17
27 Artikel
BenutzerIn
Ich habe ein Dictionary das sowohl als Schluessel als auch als Werte einfache Integer benutzt. Nun moechte ich alle Schluessel sortiert durchgehen und jeweils 4 der Werte laufend zusammenfassen.
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10

my %hash = ( 1=>2, 19=>20, 38=>50, 40=>10, 60=>3, 66=>80, 700=>1 ); %sums = dosomemagic(%hash); print Dumper(\%sums); #$VAR = { # '1' => 82 # '19' => 83 # '38' => 143 # '40' => 94 #}
Ist es am einfachsten, keys und values in Arrays zu packen und mit each_array aus List::MoreUtils darueber zu iterieren oder gibt es noch etwas geschickteres?
- +2 replies
- Gast Muffi
  
  2012-06-19 16:38
  Sowas in der Art?
  
  Code (perl): (dl )
  
  1 2 3 4 5
  
  my %hash = (1=>2, 19=>20, 38=>50, 40=>10, 60=>3, 66=>80, 700=>1); my @keylist = sort { $a <=> $b } keys %hash; for (my $x=0; $x<=$#keylist-3; $x++){ $hash{$keylist[$x]} += $hash{$keylist[$x+$_]} for (1..3); }
  - Liffi
    
    2012-06-19 18:57
    
    User since
    2011-11-17
    27 Artikel
    BenutzerIn
    
    Du überschreibst den Ursprungshash... dann bleiben da sicher Fragmente übrig, die nicht unbedingt erwünscht sind.
    
    Wenn ich das das zweite for anpasse: (0..3) statt (1..3) sieht es mit den Werten gut aus :-).
    
    EDIT:: Danke für deine Hilfe
    Last edited: 2012-06-19 20:18:43 +0200 (CEST)
- +4 replies
- topeg
  
  2012-06-19 18:28
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  So kann es gehen:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
  
  my %hash = ( 1=>2, 19=>20, 38=>50, 40=>10, 60=>3, 66=>80, 700=>1 ); my %sums = dosomemagic(\%hash); print Dumper(\%sums); #----------------- sub dosomemagic { my $hash=shift; my %return; my @keys=sort keys(%$hash); while(@keys>=4) { $return{$keys[0]}+=$hash{$keys[$_]} for(0..3); shift(@keys); } return %return; }
  - +3 replies
  - Liffi
    
    2012-06-19 18:53
    User since
    2011-11-17
    27 Artikel
    BenutzerIn
    
    Ich habe mal testweise ein 3=>12, eingefügt.
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10 11
    
    my %hash = ( 3=>12, 1=>2, 19=>20, 38=>50, 40=>10, 60=>3, 66=>80, 700=>1 ); my %sums = dosomemagic(\%hash); print Dumper(\%sums); #$VAR1 = { # '38' => 143, # '1' => 84, # '3' => 75, # '40' => 94, # '19' => 92 # };
    
    Der Wert für die 19 dürfte sich aber eigentlich nicht ändern, der key 3 ist ja kleiner als 19.
    Werden die Zahlen bei deinem Code an irgendeiner Stelle als Strings wahrgenommen?
    - +2 replies
    - topeg
      
      2012-06-19 19:04
      
      User since
      2006-07-10
      2611 Artikel
      BenutzerIn
      
      Zeile 13: my @keys=sort { $a <=> $b } keys(%$hash);
      Ansonsten wird alphabetisch sortiert. Habe ich nicht mehr daran gedacht.
      - Liffi
        
        2012-06-19 20:19
        
        User since
        2011-11-17
        27 Artikel
        BenutzerIn
        
        Ja, das sieht jetzt sehr gut aus.
        
        Danke für deine Hilfe!

View all threads created 2012-06-19 15:29.