Wolfram Language Paclet Repository
Community-contributed installable additions to the Wolfram Language
PeterBurbery`Combinatorics`
HuffmanCodeWords |
|
| | ||||
Details and Options
Examples
(2)
Basic Examples
(2)
Generate a list of code words:
In[1]:=
 | HuffmanCodeWords |
Out[1]=
{{0},{1,0},{1,1,0},{1,1,1}}
Get code words from a Wikipedia article for letter frequency of the whole alphabet:
In[1]:=
KeyTake[LetterCounts[WikipediaData["computer"]],Alphabet[]]
Out[1]=
a3667,b622,c2141,d1582,e5620,f872,g935,h1695,i3326,j29,k225,l1978,m1715,n3226,o3578,p1337,q62,r3345,s2895,t4118,u1549,v446,w534,x96,y719,z41
In[2]:=
| HuffmanCodeWords |
Out[2]=
{{1,1,1,1},{0,1,0,0,0,1},{0,0,1,1},{1,0,0,0,1},{0,1,1},{1,0,1,0,0,1},{1,1,0,1,1,1},{1,0,1,0,1},{1,0,1,1},{1,1,0,1,1,0,1,1,1,1,0},{1,1,0,1,1,0,1,0},{0,0,1,0},{1,1,0,1,0},{1,0,0,1},{1,1,1,0},{0,1,0,0,1},{1,1,0,1,1,0,1,1,1,0},{1,1,0,0},{0,1,0,1},{0,0,0},{1,0,0,0,0},{1,1,0,1,1,0,0},{0,1,0,0,0,0},{1,1,0,1,1,0,1,1,0},{1,0,1,0,0,0},{1,1,0,1,1,0,1,1,1,1,1}}
In[3]:=
AssociationThread[Alphabet[]%]
Out[3]=
a{1,1,1,1},b{0,1,0,0,0,1},c{0,0,1,1},d{1,0,0,0,1},e{0,1,1},f{1,0,1,0,0,1},g{1,1,0,1,1,1},h{1,0,1,0,1},i{1,0,1,1},j{1,1,0,1,1,0,1,1,1,1,0},k{1,1,0,1,1,0,1,0},l{0,0,1,0},m{1,1,0,1,0},n{1,0,0,1},o{1,1,1,0},p{0,1,0,0,1},q{1,1,0,1,1,0,1,1,1,0},r{1,1,0,0},s{0,1,0,1},t{0,0,0},u{1,0,0,0,0},v{1,1,0,1,1,0,0},w{0,1,0,0,0,0},x{1,1,0,1,1,0,1,1,0},y{1,0,1,0,0,0},z{1,1,0,1,1,0,1,1,1,1,1}
 |
|
 |
|
|
""