Clojure交换!不在let绑定中的map函数内部工作

Question

我有两个序列用于比较,我需要在地图中保留比较结果,第一个序列中的数据用作键,第二个用作val.这是一个有效的示例代码

(def myAtom  (atom {}))

(map #(if (== %1 %2) (swap! myAtom assoc %1 %2 ))
              [1 2 3]   [4 5 3]) 

(prn @myAtom)  ; ==>  {3 3}

然而,在将"相同"的东西放到一个let绑定之后,它就不再起作用了

(let  [ myAtom  (atom {})]    
  (map #(if (== %1 %2) (swap! myAtom assoc %1 %2 ))
              [1 2 3]   [4 5 3]) 
  (prn @myAtom)) ;;==> {} empty???

所以问题是,myAtom里面发生了什么让绑定？怎么会丢失？

Answer 1

map 是从序列中生成延迟序列,而您需要的是对序列中的每个项执行某些操作(即交换),因此您需要使用 doseq

编辑:(更新为par @mobyte建议)

(let  [myAtom  (atom {})
       a [1 2 3]
       b [4 5 3]]    
  (doseq [[x y] (map vector a b)]
    (if (== x y) (swap! myAtom assoc x y )))
  (prn @myAtom))

您的第一个示例有效,因为您在REPL中执行了每个表达式,这使得map操作执行其延迟操作.

我见过很多人尝试使用map来做这样的某些操作,map应该仅用于一个目的,即将序列映射到另一个序列而不进行任何副作用操作.