D/ ( D1 D2 a -- D3 )


Vocabulary
decimals

Inputs
D1an object
D2an object
aan object


Outputs
D3an object


Definition
USING: kernel math math.functions ;

IN: decimals

:: D/ ( D1 D2 a -- D3 )
D1 D2 guard-decimals [ >decimal< ] bi@
:> ( m1 e1 m2 e2 ) m1 a 10^ * m2 /i e1 e2 a + - <decimal> ;