5 ((map { $_=>1 } qw(v n a interjection conj pron prep
6 modal infinitive-marker)),
7 (map { $_=>0 } qw(det adv)));
12 # frequency sort rank, frequency, word, word-class
13 m/^\d+ (\d+) (\S+) (\S+)$/ or die "$_ ?";
14 my ($freq,$word,$class) = ($1,$2,$3);
15 my $allow = $allow_class{$class};
16 if (!defined $allow) {
18 $allow = $allow_class{$class} = 1;
21 $words{$word} += $freq;
24 our @words = sort { $words{$b} <=> $words{$a} } keys %words;
25 print $_,"\n" or die $! foreach @words;