June 2018 Update

Task/Huffman-coding/Perl-6/huffman-coding-2.pl6

@@ -9,3 +9,23 @@ sub huffman (%frequencies) {
     }
     @queue[0].value;
 }
+
+# Testing
+
+for huffman 'this is an example for huffman encoding'.comb.Bag {
+    say "'{.key}' : {.value}";
+}
+
+# To demonstrate that the table can do a round trip:
+
+say '';
+my $original = 'this is an example for huffman encoding';
+
+my %encode-key = huffman $original.comb.Bag;
+my %decode-key = %encode-key.invert;
+my @codes      = %decode-key.keys;
+
+my $encoded = $original.subst: /./,      { %encode-key{$_} }, :g;
+my $decoded = $encoded .subst: /@codes/, { %decode-key{$_} }, :g;
+
+.say for $original, $encoded, $decoded;