perlで。CPANに「Bayes」でお伺いを立ててみると、 Algorithm::NaiveBayes なんて言うのがヒットした。説明を見ると、ベイジアンフィルタのいくつかの実装がされているらしい。 そんなんで、適当に書いてみる。あらかじめ、Cのソースコードとperlスクリプト…