Beefy Boxes and Bandwidth Generously Provided by pair Networks
Come for the quick hacks, stay for the epiphanies.
 
PerlMonks  

Re^3: Efficient 7bit compression

by Ven'Tatsu (Deacon)
on Mar 14, 2005 at 19:43 UTC ( [id://439416] : note . print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    sub shrink {
        my $dbit = 0;
    ...
            vec($_[0], $dbit, 1) = $dbit % 8 == 7 ? 0 : vec($_[0], $sbit--
    +, 1);
        }
    }