10 foreach my $f (10,20,35,40,50,55,60,70,80,95) {
11 my $n = `bash -c 'cat final/{american,english}-{words,abbreviations,contractions}.$f 2> /dev/null | wc -l'` + 0;
12 my $p = `bash -c 'cat final/{american,english}-{proper-names,upper}.$f 2> /dev/null | wc -l'` + 0;
16 for (my $i = $c0+1; $i <= $c; ++$i) {
20 push @data, [$f, $n, $p, $c, $hc];
25 1 while s/^([-+]?\d+)(\d{3})/$1,$2/;
30 #print " Size Words Names Running Total % Zipf's law\n";
31 print " Size Words Names Running Total %\n";
34 my ($f, $n, $p, $c0, $h) = @$_;
37 #printf(" %2d %7s %7s %7s %5.1f %6.2f\n", $f, commify($n), commify($p), commify($c0), $cp, $hp);
38 printf(" %2d %7s %7s %7s %5.1f\n", $f, commify($n), commify($p), commify($c0), $cp);
39 #print "$f $n $p $c0 $cp $hp\n";