vocab-noise-factor ( vocab -- factor )


Vocabulary
reports.noise

Inputs
vocaban object


Outputs
factoran object


Definition
USING: kernel math math.order sequences vocabs ;

IN: reports.noise

: vocab-noise-factor ( vocab -- factor )
vocab-words flatten-generics
[ word-noise-factor dup 20 < [ drop 0 ] when ] map
[ 0 ]
[ [ [ sum ] [ length 5 max ] bi /i ] [ maximum ] bi + ]
if-empty ;