byte/nibble ( n -- shift n' )


Vocabulary
nibble-arrays.private

Inputs
nan object


Outputs
shiftan object
n'an object


Definition
USING: kernel math ;

IN: nibble-arrays.private

: byte/nibble ( n -- shift n' )
[ 1 bitand 2 shift ] [ -1 shift ] bi ; inline