That's awesome! (though I'm slightly surprised there isn't an easier way).
Thanks. On Tuesday, 23 November 2010 21:03:37 UTC, Tyler Perkins wrote: > > Nice! And with just a bit more, we have a clean, sorting DSL: > > (def asc compare) > (def desc #(compare %2 %1)) > ;; compare-by generates a Comparator: > (defn compare-by [& key-cmp-pairs] > (fn [x y] > (loop [[k cmp & more] key-cmp-pairs] > (let [result (cmp (k x) (k y))] > (if (and (zero? result) more) > (recur more) > result))))) > > (sort (compare-by :last-name asc, :date-of-birth desc) coll) -- You received this message because you are subscribed to the Google Groups "Clojure" group. To post to this group, send email to clojure@googlegroups.com Note that posts from new members are moderated - please be patient with your first post. To unsubscribe from this group, send email to clojure+unsubscr...@googlegroups.com For more options, visit this group at http://groups.google.com/group/clojure?hl=en --- You received this message because you are subscribed to the Google Groups "Clojure" group. To unsubscribe from this group and stop receiving emails from it, send an email to clojure+unsubscr...@googlegroups.com. For more options, visit https://groups.google.com/d/optout.
