nan-sum ( seq -- n ) - Factor Documentation

Vocabulary
math.extras

Inputs and outputs

seq	a sequence
n	a number

Word description
Return the sum of seq treating any NaNs as zero.

Definition

USING: kernel math sequences ;

IN: math.extras

: nan-sum ( seq -- n )
    0 [ dup fp-nan? [ drop ] [ + ] if ] binary-reduce ;