prop.pl

来自「dbacl是一个通用目的的digramic贝叶斯文本分类器。它可以学习你提供的文」· PL 代码 · 共 13 行

#!/usr/bin/perl

$special = $normal = 0;
while(<STDIN>) {
    $special++ if /^ >/;
    $normal++;
    print;
}
$prop = $special/$normal;
print "proportion: $prop\n";