Clojure: Remove duplicates via a user-defined function

removedups.clj

(defn remove-dups [f coll]
  (vals
    (reduce (fn [m v]
              (let [applied (f v)]
                (if-not (contains? m applied)
                  (assoc m applied v)
                  m)))
            {}
            coll)))