number-length ( n -- m )

Vocabulary

project-euler.common

Inputs

n

an object

Outputs

m

an object

Definition

USING: kernel math ;

IN: project-euler.common

: number-length ( n -- m )
    abs
    [ 1 ]
    [ 1 0 [ 2over >= ] [ [ 10 * ] [ 1 + ] bi* ] while 2nip ]
    if-zero ;