Handbook
Glossary
bignum-integer-log10-find-up ( guess 10^guess n -- log10 )
Vocabulary
math.functions.private
Inputs
guess
an
object
10^guess
an
object
n
an
object
Outputs
log10
an
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
;