Algorithm-Huffman
view release on metacpan or search on metacpan
t/encode_bitstring.t view on Meta::CPAN
5678910111213141516171819202122232425use
Data::Dumper;
use
Test::Exception;
sub
myrand($) {
return
int
(
rand
(
int
rand
shift
() ) + 1 );
}
# Create a random counting
my
%counting
=
map
{ random_string(
'c'
x myrand MAX_SUBSTRING_LENGTH)
=> myrand(MAX_COUNT)
}
(1 .. HUFFMAN_ELEMENTS);
$counting
{
$_
} = myrand(MAX_COUNT)
for
(
'a'
..
'z'
);
my
$huff
= Algorithm::Huffman->new(\
%counting
);
( run in 0.237 second using v1.01-cache-2.11-cpan-ec4f86ec37b )