concentration-coefficient ( seq -- x )

Vocabulary

math.extras

Inputs

seq

an object

Outputs

x

an object

Definition

USING: kernel math math.extras.private sequences ;

IN: math.extras

: concentration-coefficient ( seq -- x )
    dup length 1 <=
    [ drop 0 ] [ [ (gini) ] [ length [ ] [ 1 - ] bi / ] bi * ]
    if ;