【Clojure入門備忘録】ThreadingMacroの基本

Threading Macroってなんだか難しそう....という先入観があった。
書いてみると難しくはないし、むしろ「Threading Macro使わないとかありえなくない？」となった。

ということで備忘録メモ。

そもそも何がやりたかったのか

階層構造になったMapの中の文字列を取り出して、1つの文字列を作りたかった。

このコレクション

dev> {:data {:operator "AND"
             :values [{:value1 "hoge"
                       :value2 "fuga"}
                      {:value1 "HOGE"
                       :value2 "FUGA"}]}}

↓

こうしたい

"hoge,fuga AND HOGE,FUGA"

どうやってやるか

Threading Macroを使わない場合

dev> (defn func [{:keys [data]}]
       (clojure.string/join
        (str " " (:operator data) " ")
        (map #(str (:value1 %) "," (:value2 %)) (:values data))))
#'dev/func
dev> (func {:data {:operator "AND"
                   :values [{:value1 "hoge"
                             :value2 "fuga"}
                            {:value1 "HOGE"
                             :value2 "FUGA"}]}})
"hoge,fuga AND HOGE,FUGA"

書きにくい、読みにくい、かっこ辛い。

Threading Macroを使う場合

dev> (defn func [{:keys [data]}]
       (->> data
            :values 
            (map #(str (:value1 %) "," (:value2 %)))
            (clojure.string/join (str " " (:operator data) " "))))
#'dev/func
dev> (func {:data {:operator "AND"
                   :values [{:value1 "hoge"
                             :value2 "fuga"}
                            {:value1 "HOGE"
                             :value2 "FUGA"}]}})
"hoge,fuga AND HOGE,FUGA"

やりたいことを最下層から順番に書いただけ
->>は、thread-last macroというらしい。

対して、->はthread-first macroという。（何が出来るのかはもう名前から察せる。）
cf. https://clojure.org/guides/threading_macros

ちなみにこのマクロを展開すると...

こうなる(当たり前だけど)

dev> (macroexpand '(->> data
                        :values 
                        (map 
                         #(str (:value1 %) "," (:value2 %)))
                        (clojure.string/join (str " " (:operator data) " "))))
(clojure.string/join
 (str " " (:operator data) " ")
 (map
  (fn* [p1__81698#] (str (:value1 p1__81698#) "," (:value2 p1__81698#)))
  (:values data)))

最後に

ちなみに、Threading Macroの代表的なものとして他にsome->, some->>,cond->あたりがある。
この辺はまた今度。