Re^2: 3-byte representation

Hm?

Big-endian:

sub pack24{ substr( pack('l>', $_[0]), 1) };;
sub unpack24{ unpack('l>', "$_[0]\0") };;

print "$_: ", unpack24( pack24( $_ ) ) 
    for ( -8388608, -8388607, -2, -1, 0, 1, 2, 8388606, 8388607 );;
-8388608:  -2147483648
-8388607:  -2147483392
-2:  -512
-1:  -256
0:  0
1:  256
2:  512
8388606:  2147483136
8388607:  2147483392
[download]

Little-endian:

sub pack24{ substr( pack('l<', $_[0]), 1) };;
sub unpack24{ unpack('l<', "$_[0]\0") };;

print "$_: ", unpack24( pack24( $_ ) ) 
    for ( -8388608, -8388607, -2, -1, 0, 1, 2, 8388606, 8388607 );;
-8388608:  16744448
-8388607:  16744448
-2:  16777215
-1:  16777215
0:  0
1:  0
2:  0
8388606:  32767
8388607:  32767
[download]

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

Comment on Re^2: 3-byte representation Select or Download Code

Replies are listed 'Best First'.
Re^3: 3-byte representation by ikegami (Patriarch) on Oct 12, 2011 at 18:45 UTC
Thanks, a "`/256`" got accidentally dropped when I posted my code. Fixed.	[reply] [d/l]