zero-end-bits ( bit-array -- bit-array )

Vocabulary

bit-arrays.private

Inputs

bit-array

an object

Outputs

bit-array

an object

Definition

USING: accessors kernel math sequences ;

IN: bit-arrays.private

: zero-end-bits ( bit-array -- bit-array )
    dup underlying>>
    [ ] [
        [
            length 8 * over length - 8 swap - -1 swap shift
            bitnot
        ] [ last bitand ] [ set-last ] tri
    ] if-empty ; inline