Perl中的简单除法带来的麻烦

Question

试图计算Flesch-Kincaid等级。这里的划分有什么问题？

$flesh_grade = 0.39 * ($total_words/$total_sentences) + ($total_syllables/$total_words);

Answer 1

可用模块的CPAN has a very diverse景观，我们也可以在那里找到这种计算：

• 在Text::Info module中我们找到了一种方法，但是如果sanity checks通过，就会运行以下代码：

    my $score = ( ($words_per_sentence * 0.39) + ($syllables_per_word * 11.8) ) - 15.59;

• 在Lingua::En::Fathom module中我们可以找到以下内容：

    $text->{kincaid} =  (11.8 * $text->{syllables_per_word}) +
         (0.39 * $text->{words_per_sentence}) - 15.59;