flip.clj

(defn flip 
  "Flips a functions argument list."
  [f] (fn [& args] (apply f (reverse args))))

;Slightly shorter implementation by Anthony Grimes @IORayne
(defn flip [f] #(apply f (reverse %&)))

(def my-gt (flip >))
(> 10 9); => true
(my-gt 10 9); => false

(def my-after? (flip after?))
(after? (date-time 1986 10) (date-time 1986 9)); => true
(my-after? (date-time 1986 10) (date-time 1986 9)); => false