sortie inattendue pour la carte à l'intérieur de do

Question

Pourquoi cela ne produit-il pas la sortie que j'attends?

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

Il produit

start 
done 

Alors que je me attends

start 
2 3 4 
done 

Answer 1

map est paresseux, et do ne force pas. Si vous voulez forcer l'évaluation d'une séquence paresseuse, utilisez doall ou dorun.

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