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

Vocabulary

math.ratios.private

Inputs

a/b	an object
c/d	an object

Outputs

a*d	an object
b*c	an object

Definition

USING: math.ratios ;

IN: math.ratios.private

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