垃圾邮件分类器Clojure

Question

我一直在尝试在Clojure中实现垃圾邮件分类器。我一直在使用的参考书是“集体情报”。下面是训练分类器的训练方法：

(defn train
  [t cat]
 (incc cat)
 (let [ws (keys (getwords t))]
 (for [w ws] (incf w cat))))

这是我写的样本训练方法，我只是把一些训练数据转储到分类器中，这样我就不用每次手动训练它了。

(defn sampletrain
  []
    (do
       (train "Nobody owns the water." "good")
       (train "the quick rabit jumps fences" "good")
       (train "buy pharmaceuticals now" "bad")
       (train "make quick money at the online casino" "bad")
       (train "the quick brown fox jumps" "good")))

不幸的是，样本训练方法只训练我的分类器的最后一个项目或句子“快褐狐跳”被归类为“好”。最后，我的分类器看起来如下：{“{{”好“1}，”快速“{”“goood”1}，“褐色”{“好”1}，“狐狸”{“好”1}，“跳”{“好”1}}。如你所见，它只接受过最后一项的训练。为了避免这种情况，我用"do“语句包装了所有东西，但我不知道为什么只执行最后一次调用"train”方法。

Answer 1

Clojure使用隐式返回，do语句也使用隐式返回，因此对每个句子都调用了train，但您只返回最后一个表达式的值。您可以将其包装在一个结构中，以返回所有它们。

将结果封装在向量中：

(defn sampletrain
  []
  [(train "Nobody owns the water." "good")
   (train "the quick rabit jumps fences" "good")
   (train "buy pharmaceuticals now" "bad")
   (train "make quick money at the online casino" "bad")
   (train "the quick brown fox jumps" "good")])