mediant ( a/c b/d -- (a+b)/(c+d) )

Vocabulary

project-euler.common

Inputs

a/c	an object
b/d	an object

Outputs

(a+b)/(c+d)

an object

Definition

USING: kernel math math.ratios ;

IN: project-euler.common

: mediant ( a/c b/d -- (a+b)/(c+d) ) 2>fraction [ + ] 2bi@ / ;