remove-duplicate-with-test.clj

(defn remove-duplicate-with-test [test coll]
  (loop [new-coll [] src coll]
    (if-let [first-element (first src)]
      (recur (conj new-coll first-element)
             (remove #(test first-element %) src))
      new-coll)))

;; (remove-duplicate-with-test = [1 2 3 4 3 2 1])
;; ;=> [1 2 3 4]

;; (remove-duplicate-with-test #(= (:hoge %1) (:hoge %2))
;;                             [{:hoge 1 :fuga 2} {:hoge 1 :fuga 3} {:hoge 2 :fuga 1} {:hoge 2 :fuga 4}])
;; ;=> [{:hoge 1, :fuga 2} {:hoge 2, :fuga 1}]