gistfile1.clj

(defn maybe-reduce [f a l]
  "Short-circuits if f returns nil."
  (if (seq l)
    (let [[b & cs] l
          fab (f a b)]
      (if cs
        (if (nil? fab)
          nil
          (recur f fab cs))
        fab))
    a))