do中的map的意外输出

Question

为什么这不会产生我期望的输出？

(defn test-fn []
  (do
    (println "start")
    (map #(println (+ % 1)) '(1 2 3))
    (println "done")))

输出

start
done

我希望

start
2 3 4
done

Answer 1

map是懒惰的，而do并不强迫它。如果您想强制评估延迟序列，请使用doall或dorun。

(defn test-fn []
  (do
    (println "start")
    (dorun (map #(println (+ % 1)) '(1 2 3)))
    (println "done")))