steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

math.extras: simpler herfindahl.

db4
John Benediktsson 2012-09-26 15:43:15 -07:00
parent ddbffb6375
commit 9d813ef1a9
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/math/extras/extras.factor
View File

@ -180,7 +180,7 @@ PRIVATE>
] if ; ] if ;
: herfindahl ( seq -- x ) : herfindahl ( seq -- x )
dup sum sq '[ sq _ / ] map-sum ; [ sum-of-squares ] [ sum sq ] bi / ;
: normalized-herfindahl ( seq -- x ) : normalized-herfindahl ( seq -- x )
[ herfindahl ] [ length recip ] bi [ herfindahl ] [ length recip ] bi