(bignum-log) ( n log-quot: ( x -- y ) log-2 -- log )

Vocabulary

math.functions.private

Inputs

n	an object
log-quot	a quotation with stack effect ( x -- y )
log-2	an object

Outputs

log

an object

Definition

USING: kernel math math.functions ;

IN: math.functions.private

: (bignum-log) ( n log-quot: ( x -- y ) log-2 -- log )
    dupd '[
        dup representable-as-float?
        [ >float @ ] [ frexp _ [ _ * ] bi* + ] if
    ] call ; inline