r-sum-diffs ( x-mean y-mean x-seq y-seq -- (r) )

Vocabulary

math.statistics.private

Inputs

x-mean	an object
y-mean	an object
x-seq	an object
y-seq	an object

Outputs

(r)

an object

Definition

USING: kernel math sequences ;

IN: math.statistics.private

: r-sum-diffs ( x-mean y-mean x-seq y-seq -- (r) )
    0 [ [ reach - ] bi@ * + ] 2reduce 2nip ;