Revision as of 15:03, 11 May 2015 (view source) rosettacode>Doubleagent (→‎{{header\|Clojure}}) ← Older edit		Revision as of 19:07, 14 May 2015 (view source) rosettacode>Doubleagent (→‎Alternate Version) Newer edit →
Line 1,438: (defn init-pq [s] (let [c (count s)] (->> s frequencies (map (fn [[k v]] [k {:sym k :weight (/ v c)}])) (into (priority-map-keyfn-by :weight <))))) (defn huffman-tree [pq]

Huffman coding (view source)