(define sample-tree
(generate-huffman-tree
'((a 5) (b 2) (r 2) (c 1) (d 1))))
(define sample-message
'(a b r a c a d a b r a))
(decode (encode sample-message sample-tree) sample-tree)
;; > (a b r a c a d a b r a)
-
Notifications
You must be signed in to change notification settings - Fork 0
Huffman Tree generation, encoding and decoding, in Scheme
License
xlxs4/sicp-huffman
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
Folders and files
Name | Name | Last commit message | Last commit date | |
---|---|---|---|---|
Repository files navigation
About
Huffman Tree generation, encoding and decoding, in Scheme
Topics
Resources
License
Stars
Watchers
Forks
Releases
No releases published