math.extras: Call (gini).
parent
9d813ef1a9
commit
48184779ea
|
@ -176,7 +176,7 @@ PRIVATE>
|
||||||
dup length 1 <= [
|
dup length 1 <= [
|
||||||
drop 0
|
drop 0
|
||||||
] [
|
] [
|
||||||
[ gini ] [ length [ ] [ 1 - ] bi / ] bi *
|
[ (gini) ] [ length [ ] [ 1 - ] bi / ] bi *
|
||||||
] if ;
|
] if ;
|
||||||
|
|
||||||
: herfindahl ( seq -- x )
|
: herfindahl ( seq -- x )
|
||||||
|
|
Loading…
Reference in New Issue