comp functions that preserve additional arguments: comp-> and comp->>

comp-arrow.clj

(defn comp->>
  "Like comp but multiple arguments are passed to all functions like partial, except the last which is threaded like ->>" 
  [f & fs]
  (fn [& args]
    (reduce (fn [r f']
              (apply f' (conj (into [] (butlast args)) r)))
            (apply f args)
            fs)))

(defn comp->
  "Like comp but multiple arguments are passed to all functions like apply, except the first which is threaded like ->"
  [f & fs]
  (fn [& args]
    (reduce (fn [r f']
             (apply f' r (rest args)))
            (apply f args)
            fs)))