kahan+ ( c sum elt -- c' sum' )


Vocabulary
math.extras.private

Inputs
can object
suman object
eltan object


Outputs
c'an object
sum'an object


Definition
USING: kernel math ;

IN: math.extras.private

: kahan+ ( c sum elt -- c' sum' )
rot - 2dup + [ -rot [ - ] bi@ ] keep ; inline