• (sorted-set-by comparator & keys)
Returns a new sorted set with supplied keys, using the supplied comparator.

2 Examples top

  • user> (sorted-set-by > 3 5 8 2 1)
    #{8 5 3 2 1}
  • ;; Be cautious about comparison functions that only compare part of
    ;; the objects:
    user=> (defn second-< [x y]
             (< (second x) (second y)))
    user=> (sorted-set-by second-< [:a 1] [:b 1] [:c 1])
    #{[:a 1]}
    ;; Where did the other elements go?
    ;; Replacing < with <= might look like a fix, but doesn't work,
    ;; either:
    user=> (defn second-<= [x y]
             (<= (second x) (second y)))
    user=> (def s2 (sorted-set-by second-<= [:a 1] [:b 1] [:c 1]))
    user=> s2
    #{[:c 1] [:b 1] [:a 1]}
    ;; So far, so good, but set membership tests can't find the elements.
    user=> (contains? s2 [:b 1])
    user=> (s2 [:c 1])
    ;; Here is one way to write a good comparison function.  When the two
    ;; objects are equal in the parts we care about, use the tie-breaker
    ;; 'compare' on the whole values to give them a consistent order that
    ;; is only equal if the entire values are equal.
    user=> (defn second-<-with-tie-break [x y]
             (let [c (compare (second x) (second y))]
               (if (not= c 0)
                 ;; Otherwise we don't care as long as ties are broken
                 ;; consistently.
                 (compare x y))))
    user=> (def s3 (sorted-set-by second-<-with-tie-break [:a 1] [:b 1] [:c 1]))
    user=> s3
    #{[:a 1] [:b 1] [:c 1]}
    user=> (contains? s3 [:b 1])
    user=> (s3 [:c 1])
    [:c 1]
    ;; All good now!
Log in to add / edit an example.

See Also top

Log in to add a see also.

Plus_12x12 Minus_12x12 Source clojure/core.clj:388 top

(defn sorted-set-by
  "Returns a new sorted set with supplied keys, using the supplied comparator."
  {:added "1.1"
   :static true} 
  ([comparator & keys]
   (clojure.lang.PersistentTreeSet/create comparator keys)))
Vars in clojure.core/sorted-set-by:
Used in 0 other vars

Comments top

No comments for sorted-set-by. Log in to add a comment.