nicht angemeldet
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
--
Ein Selbständiger ist jemand, der bereit ist, 16 Stunden am Tag zu arbeiten, nur um nicht 8 Stunden für einen Anderen arbeiten zu müssen.
Ein Selbständiger ist jemand, der bereit ist, 16 Stunden am Tag zu arbeiten, nur um nicht 8 Stunden für einen Anderen arbeiten zu müssen.