, , Lisp , # . "nbad" "ngood", , ( ) .
. # fixnum - , ( Lisp, , , ).
checked {
var fbad = (double)nbad;
var fgood = (double)ngood;
var g = 2 * (gethash(word, good) | 0);
var b = gethash(word, bad) | 0;
if( (g + b) >= 5)
{
return Math.Max(
0.01,
Math.Min(0.99,
Math.Min(1, b / fbad) /
(Math.Min(1, g / fgood) + Math.Min(1, b / fbad))));
}
}