fixnum-integer-log10 ( n -- x )

Vocabulary

math.functions.private

Inputs

n

an object

Outputs

x

an object

Definition

USING: kernel kernel.private math math.private sequences.private
;

IN: math.functions.private

: fixnum-integer-log10 ( n -- x )
    dup (log2) { array-capacity } declare
    log10-guesses nth-unsafe { array-capacity } declare
    dup log10-thresholds nth-unsafe { fixnum } declare rot <
    [ 1 + ] when ; inline