撰寫多個謂詞功能於一體

Question

是否有可能構成例如：

(defn- multiple-of-three? [n] (zero? (mod n 3)) 
(defn- multiple-of-five? [n] (zero? (mod n 5)) 

成：

multiple-of-three-or-five? 

所以可以將其用於過濾：

(defn sum-of-multiples [n] 
    (->> (range 1 n) 
     (filter multiple-of-three-or-five?) 
     (reduce +))) 

此外，我不想像這樣定義它：

(defn- multiple-of-three-or-five? [n] 
    (or (multiple-of-three? n) 
     (multiple-of-five? n))) 

例如使用Javascript模塊Ramda它將被實現爲：不確定http://ramdajs.com/docs/#either

const multipleOfThreeOrFive = R.either(multipleOfThree, multipleOfFive) 

Answer 1

，Clojure中這是some-fn。

(def multiple-of-three-or-five? 
    (some-fn multiple-of-three? multiple-of-five?)) 

(multiple-of-three-or-five? 3) ; => true 
(multiple-of-three-or-five? 4) ; => false 
(multiple-of-three-or-five? 5) ; => true