Clojure 线程宏

Question

我不确定这是发布的最佳地点，但为什么 2) 不起作用？线程宏不是将 seq 的结果传递给 (map str) ?

;; 1
(map str (seq (str (* 8 8)))) -> ("6" "4")

;; 2
(defn a [x y]
  (-> (* x y)
      str
      seq
      (map str)))


(a 8 8) -> Don't know how to create ISeq from: clojure.core$str

Answer 1

您正在使用 thread-first宏，将每个表单作为下一个的第二项插入，如下所示:

(-> (* x y) str seq (map str))
(-> (str (* x y)) seq (map str))
(-> (seq (str (* x y))) (map str))
(map (seq (str (* x y))) str)

您要的是 thread-last宏:

(defn a [x y]
  (->> (* x y) str seq (map str)))

(a 8 8) ;=> ("6" "4")