normalized-herfindahl ( seq -- x )

Vocabulary

math.extras

Inputs

seq

an object

Outputs

x

an object

Definition

USING: kernel math sequences ;

IN: math.extras

: normalized-herfindahl ( seq -- x )
    [ herfindahl ] [ length recip ] bi [ - ] [ 1 swap - / ] bi ;