lisp - 请帮助破译这个 lisp 摘录

Question

(let ((g (* 2 (or (gethash word good) 0)))
      (b (or (gethash word bad) 0)))
   (unless (< (+ g b) 5)
     (max .01
          (min .99 (float (/ (min 1 (/ b nbad))
                             (+ (min 1 (/ g ngood))   
                                (min 1 (/ b nbad)))))))))

Answer 1

问题是什么？它几乎是简单的英语:

设 g 是哈希表 good 中 word 的值(如果不存在则为 0)乘以 2

(let ((g (* 2 (or (gethash word good) 0)))

和 b word 在哈希表 bad 中的值(如果那里不存在则为 0)。

      (b (or (gethash word bad) 0)))

考虑到这一点，并假设g和b之和不小于5

   (unless (< (+ g b) 5)

返回 0.01 或 0.01 中的最大值

     (max .01

0.99 或中的最小值

          (min .99 

b/nbad 除以 b/nbad 和 g 之和>/ngood(作为一个浮点值，那些单独的商应该最多为 1)。

               (float (/ (min 1 (/ b nbad))
                         (+ (min 1 (/ g ngood))   
                            (min 1 (/ b nbad)))))))))