(ratio-integer-log) ( ratio quot base -- log )

Vocabulary

math.functions.private

Inputs

ratio	an object
quot	an object
base	an object

Outputs

log

an object

Definition

USING: kernel math math.functions ;

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