clojure - 无法对包含日期时间的 map 进行排序

Question

我正在尝试根据日期时间值对 map 进行排序。下面的代码使用了来自 clj-time 的函数 -

(def items {:a {:time (date-time 2013 12)} :b {:time (date-time 2013 11)}})

(sort-by #(-> % items :month) before? items)

IllegalArgumentException No implementation of method: :before? of protocol: #'clj-time.core/DateTimeProtocol found for class: nil clojure.core/-cache-protocol-fn (core_deftype.clj:527)

但是我得到了上述异常。我做错了什么？

Answer 1

你需要这样做:

(sort-by (fn [[k v]] (-> v :time)) before? items)

如果你想要一个排序映射，那么你需要将日期时间映射作为键，并将 :a :b 作为值导致排序映射对键值进行排序:

(->>  (into [] items)
      (map (fn [[k v]] [v k]))
      (flatten)
      (apply sorted-map-by #(before? (%1 :time) (%2 :time))))