clojure - 如何将优先级图扩展为可简化的

Question

我注意到了 priority map没有实现 reduce(如果你尝试的话是 AbstractMethodError)——我该如何扩展它才能实现？

Answer 1

这对我有用:

(ns reducing
   (:use clojure.data.priority-map)
   (:import (clojure.data.priority_map PersistentPriorityMap)))

(extend-type PersistentPriorityMap
   clojure.core.protocols/CollReduce
   (coll-reduce
      ([this f] (reduce f (seq this)))
      ([this f val] (reduce f (seq this) val))))

(def p (priority-map :a 2 :b 1 :c 3 :d 5 :e 4 :f 3))

(reduce conj [] p)