decimal-length ( m -- n )

Vocabulary

ryu.private

Inputs

m

an object

Outputs

n

an object

Definition

USING: kernel math sequences ;

IN: ryu.private

: decimal-length ( m -- n )
    {
        10
        100
        1000
        10000
        100000
        1000000
        10000000
        100000000
        1000000000
        10000000000
        100000000000
        1000000000000
        10000000000000
        100000000000000
        1000000000000000
        10000000000000000
        100000000000000000
        1000000000000000000
    } [ dupd >= ] find-last [ 2 + ] [ drop 1 ] if nip ; inline