scale+d ( a/b c/d -- a*d b*c b*d )

Vocabulary

math.ratios.private

Inputs

a/b	an object
c/d	an object

Outputs

a*d	an object
b*c	an object
b*d	an object

Definition

USING: kernel math math.ratios ;

IN: math.ratios.private

: scale+d ( a/b c/d -- a*d b*c b*d )
    2>fraction [ (scale) ] 2keep * ; inline