bignum-integer-log10-find-up ( 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-up ( guess 10^guess n -- log10 )
[ 10 * ] dip
[ 2dup <= ] [ [ [ 1 + ] [ 10 * ] bi* ] dip ] while 2drop ;