distinct?

function

since v0.0-927

clojure.core/distinct?

Edit

Details:

Examples:

(distinct? 1)
;;=> true

(distinct? 1 2)
;;=> true

(distinct? 1 1)
;;=> false

(distinct? 1 2 3)
;;=> true

(distinct? 1 2 1)
;;=> false

(apply distinct? [1 2 3])
;;=> true

(apply distinct? [1 2 1])
;;=> false

See Also:

• distinct

Returns true if no two of the arguments are =

(defn ^boolean distinct?
  ([x] true)
  ([x y] (not (= x y)))
  ([x y & more]
     (if (not (= x y))
     (loop [s #{x y} xs more]
       (let [x (first xs)
             etc (next xs)]
         (if xs
           (if (contains? s x)
             false
             (recur (conj s x) etc))
           true)))
     false)))