bit-length ( x -- n )

Vocabulary

math

Inputs

x

an object

Outputs

n

an object

Definition

USING: kernel ;

IN: math

: bit-length ( x -- n )
    assert-non-negative dup 1 > [ log2 1 + ] when ;