fuad.im/FUNctional Programming

make-composed-comparison1.clj

(defn make-composed-comparison [& comparisons]
  (fn [p1 p2]
    (let [results (for [comparison comparisons] (comparison p1 p2))
          first-non-zero-result
          (some (fn [result] (if (not (= 0 result)) result nil)) results)]
      (if (nil? first-non-zero-result)
        0
        first-non-zero-result))))

make-composed-comparison2.clj

(defn make-composed-comparison [& comparisons]
  (fn [p1 p2]
    (let [results ((apply juxt comparisons) p1 p2)
          first-non-zero-result
          (some (fn [result] (if (not (= 0 result)) result nil)) results)]
      (if (nil? first-non-zero-result)
        0
        first-non-zero-result))))

make-composed-comparison3.clj

(defn make-composed-comparison [& comparisons]
  (fn [p1 p2]
    (let [comparison-results ((apply juxt comparisons) p1 p2)]
      (or
        (some #(when (nonzero? %) %) comparison-results)
        0))))