Ha van kb.4000 db számom 1-48-ig (lehet, némelyik ki is marad), hogyan tudom sorbaállítani őket előfordulásuk gyakorisága szerint?

Gondolom ezt egy számítógépen tárolod. Akkor ráfuttatsz egy programot, amiben létrehozol egy 48 elemű, egészekből álló tömböt, majd végigmész a kb 4000 számodon és a tömb megfelelő elemét növeled eggyel minden számnál.

Ezután okosan létrehozol párokat, amivel a számot és az előfordulását rakod össze, és az utóbbi szerint rendezed ezt a halmot, majd kiírod.

Egy kis perl script:

#!/usr/bin/perl

#A listaba kell tenni a szamokat.

my @lista = qw(2 3 4 5 78 45 78 78 45 2 2 3 2 78 78 45);

my %hash = ();

#lista beolvasasa, elemek szamolasa

foreach my $element ( @lista){

$hash{$element}++;

}

#sorba rendezes

foreach my $element (sort { $hash{$a} cmp $hash{$b}} keys %hash){

print "$element\t$hash{$element}\n";

}