Handbook Glossary
factorcode.org
(ratio-integer-log) ( ratio quot base -- log )


Vocabulary
math.functions.integer-logs.private

Inputs
ratioan object
quotan object
basean object


Outputs
logan object


Definition
USING: kernel math math.functions ;

IN: math.functions.integer-logs.private

: (ratio-integer-log) ( ratio quot base -- log )
pick 1 >=
[ drop ((ratio-integer-log)) ] [
[ recip ] 2dip
[ drop ((ratio-integer-log)) ] [ nip pick ^ = ] 3bi
[ 1 + ] unless neg
] if ; inline