clojure - 我应该如何迭代序列？

Question

下面是我尝试迭代一系列 map 的尝试；由于转换错误，代码失败:线程“主”java.lang.RuntimeException 中的异常:java.lang.ClassCastException:clojure.lang.Cons 无法转换为 java.util.Map$Entry .

谁能解释/演示我应该如何迭代结果集？谢谢。

(with-connection db
                 (with-query-results rs ["select category from users group by category"]
                                     (doall
                                       (for [s [rs]] 
                                       (do (println (val s)))))))

Answer 1

您将 rs 包装到一个向量中。所以 s 将绑定(bind)到整个序列，而不是单个映射条目。因此，当您调用 val 时，它不知道如何处理序列。因此异常(exception)。这应该有效:

(with-connection db
  (with-query-results rs ["select category from users group by category"]
    (doall
      (for [rec rs
            s   rec] 
        (do
          (println (val s)))))))

然而，围绕着 for 的丑陋的 doall 和 do 应该敲响警钟，有些东西可以改进。事实上，for 用于构造另一个惰性序列。正如您在示例中预期的那样，这不能很好地处理副作用。在这种情况下，您应该使用 doseq。

(with-connection db
  (with-query-results rs ["select category from users group by category"]
    (doseq [rec rs
            s   rec]
      (println (val s)))))

doseq 的绑定(bind)接口(interface)与for 的绑定(bind)接口(interface)相同。但是它会立即执行事情，因此会立即意识到任何副作用。如果将多个表达式放在 for 的主体中，则必须将其包装到 do 中。这是一个提醒， body 应该产生值(value)。然而，多个表达式表示副作用。 doseq 因此为您将正文包装成一个do。因此，您可以轻松拥有多个表达式。例如:

(doall
  (for [s seq-of-maps]
    (do
      (println (key s))
      (println (val s)))))

(doseq [s seq-of-maps]
  (println (key s))
  (println (val s)))))

根据经验:您需要副作用吗？寻找以 do 开头的事情!

根据经验法则 2:如果某些东西看起来很丑(见上面的比较)，这应该引起注意。