Factor Documentation | Home | Glossary |
factorcode.org
fixnum-integer-log10 ( n -- x )


Vocabulary
math.functions.integer-logs.private

Inputs and outputs
nan object
xan object


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

IN: math.functions.integer-logs.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