条件组合运算符

Question

我想知道clojure中是否存在一些内置的函数组合运算符，允许我重写类似的东西：

(def first-or-identity #(if (sequential? %) (first %) (identity %)))

缩短为：

(def first-or-identity (if-composition sequential? first identity)

-

用例是能够沿着这些方向写一些东西：

(def eventbus-pub
  (async/pub eventbus (if-composition sequential? first identity)))

感谢名单！

Answer 1

您可以使用以下功能执行此操作：

(defn if-composition [tester truer falser]
  (fn [x]
    (if (tester x) (truer x) (falser x))))

例如，

(map
 (if-composition even? #(quot % 2) #(inc (* 3 %)))
 (range 10))
;(0 4 1 10 2 16 3 22 4 28)

默认情况下，在制作最后一个参数identity时是值得的：

(defn if-composition
  ([tester truer] (if-composition tester truer identity))
  ([tester truer falser]
   ... ))

例如，

(map (if-composition odd? #(* 2 %)) (range 10))
;(0 2 2 6 4 10 6 14 8 18)

现在我们可以将您的示例编写为

(def first-or-identity (if-composition sequential? first))