Very nice On Tue, Nov 23, 2010 at 4:03 PM, Tyler Perkins <thinks.outs...@gmail.com>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<clojure%2bunsubscr...@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 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
