Select Code to Download

sub log2{ int( ( log( $_[0] ) + 1e-15 ) / log( 2 ) ) }

...
    }
    return @unpacked;
}

C:\test>678848
Run with 15000 unique words in 1000 documents (Ave: 554 words/doc)
...

1 trial of Packing PP_Elias   (31.128s total)
1 trial of Unpacking PP_Elias (18.094s total)