Home
Random
Log in
Settings
About Rosetta Code
Disclaimers
Rosetta Code
Search
Huffman coding: Difference between revisions
Page
Discussion
← Older edit
Newer edit →
Huffman coding
(view source)
Revision as of 19:07, 14 May 2015
7 bytes removed
,
9 years ago
→Alternate Version
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]
Anonymous user
rosettacode>Doubleagent