Anonymous user
Huffman coding: Difference between revisions
m
→Testing: add whitespace
(→{{header|Perl 6}}: Add some explanation.) |
m (→Testing: add whitespace) |
||
Line 3,797:
To demonstrate that the table can do a round trip:
<lang perl6>my $original
my %encode-key = huffman $original.comb.Bag;
my %decode-key = %encode-key.invert;
|