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")))