map-kahan-sum ( ... seq quot: ( ... elt -- ... n ) -- ... n )

Vocabulary

math.extras

Inputs

seq	an object
quot	a quotation with stack effect ( ... elt -- ... n )

Outputs

n

an object

Definition

USING: kernel math.extras.private sequences ;

IN: math.extras

: map-kahan-sum
    ( ... seq quot: ( ... elt -- ... n ) -- ... n )
    [ 0.0 0.0 ] 2dip [ 2dip rot kahan+ ] curry [ -rot ] prepose
    each nip ; inline