Re: [LOCALE] Hjælp til frekvensanalyse

[Peter Makholm <sslug@sslug>]

Ole Laursen <sslug@sslug> writes:

> Hver tegnfølge skal altså være sorteret for sig efter hyppigheden i
> almindelig dansk tastaturinput (dvs. ikke Perl- eller C-kode :-).

Har du et korpus over hvad du mener er almindelig dansk tastaturinput?

perl -nle '$a++, $f{$_}++ for (split//); END{print "$_: ", $f{$_}/$a
for sort { $f{$b} <=> $f{$a} } keys %f}' 

Eller:

#!/usr/bin/perl
$/ = "\n"; $\ = "\n";
LINE: while (defined($_ = <ARGV>)) {
    chomp $_;
    foreach $_ (split(//, $_, 0)) {
        ++$a, ++$f{$_};
    }
}

foreach $_ (sort {$f{$b} <=> $f{$a};} keys %f) {
    print "${_}: ", $f{$_} / $a;
}
__END__


-- 
 Peter Makholm     |    I congratulate you. Happy goldfish bowl to you, to
 sslug@sslug |      me, to everyone, and may each of you fry in hell
 http://hacking.dk |                                               forever
                   |                                      -- The Dead Past