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

math.extras: adding exponential-index.

db4
John Benediktsson 2012-09-26 15:29:08 -07:00
parent 30382dbf4a
commit 1fe94e4184
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -185,3 +185,6 @@ PRIVATE>
: normalized-herfindahl ( seq -- x ) : normalized-herfindahl ( seq -- x )
[ herfindahl ] [ length recip ] bi [ herfindahl ] [ length recip ] bi
[ - ] [ 1 swap - / ] bi ; [ - ] [ 1 swap - / ] bi ;
: exponential-index ( seq -- x )
dup sum '[ _ / dup ^ ] map-product ;