Frequenzlisten addieren

[Lina]

Hallo,

ich habe ein Problem.
Eine Frequenzliste, die leider nicht sauber ist, hat gleiche Elemente. Bsp.:
1 ich
1 ich
1 er
5 ich

Die saubere Liste sollte aussehen
1 er
7 ich

Ich habe wieder versucht die Lösung mir einem Frequenzprogramm zu finden. Leider...

Ich hoffe, dass jemand paar Tipps für mich findet.
Danke!

[Reiner]

Hallo,

ich habe ein Problem.
Eine Frequenzliste, die leider nicht sauber ist, hat gleiche Elemente. Bsp.:
1 ich
1 ich
1 er
5 ich

Die saubere Liste sollte aussehen
1 er
7 ich

Ich habe wieder versucht die Lösung mir einem Frequenzprogramm zu finden. Leider...

in eine DB packen und dann:

select wer, sum(anzahl) from tabelle group by wer

Gruß
Reiner

[Reiner]

Das geht natürlich auch mittels Hashes und dann 'ne Schleife drumrum für die Gesamtsumme.

Gruß
Reiner

[Lina]

danke für Idee mit DB.
Gruß,
Lina

[Siechfred]

Ich hoffe, dass jemand paar Tipps für mich findet.

Mal so runtergetippt:

my @liste = ( [1, 'ich'], [1, 'ich'], [1, 'er'], [5, 'ich'] );  
my %frequency;  
grep $frequency{$_->[1]} += $_->[0], @liste;  
print "$_ = $frequency{$_}\n" foreach(keys %frequency);

Gegebenenfalls muss das noch an deine Datenstruktur angepasst werden.

Siechfred

[Lina]

ja, das muss ich noch tun. Danke. Gruß, Lina