bignum-integer-log10-find-down ( guess 10^guess n -- log10 )


Vocabulary
math.functions.private

Inputs
guessan object
10^guessan object
nan object


Outputs
log10an object


Definition
USING: kernel math ;

IN: math.functions.private

: bignum-integer-log10-find-down
( guess 10^guess n -- log10 )
[ 2dup > ] [ [ [ 1 - ] [ 10 / ] bi* ] dip ] do while 2drop ;