adding-function ( t1 t2 active-object -- function )

Vocabulary

rosetta-code.active-object

Inputs

t1	an object
t2	an object
active-object	an object

Outputs

function

an object

Definition

USING: accessors kernel math ;

IN: rosetta-code.active-object

:: adding-function ( t1 t2 active-object -- function )
    t2 t1 active-object function>> apply-stack-effect bi@ +
    t2 t1 - * 2 / [ + ] curry ;