Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
use strict;
...
cow 75
unicorn 1
pegasus 1

Select or download this

$ perl huffman.pl
Total occurrences: 697
...
Animal: sheep, depth 4 * occurrences 60 ==> 240
Animal: horse, depth 4 * occurrences 62 ==> 248
Avg: 3.45050215208034