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

Minor cleanup

db4
Slava Pestov 2008-09-22 21:31:15 -05:00
parent 1c6e08b50c
commit c689ef53d8
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/math/statistics/statistics.factor
View File

@ -4,21 +4,21 @@ IN: math.statistics
: mean ( seq -- n ) : mean ( seq -- n )
#! arithmetic mean, sum divided by length #! arithmetic mean, sum divided by length
[ sum ] keep length / ; [ sum ] [ length ] bi / ;
: geometric-mean ( seq -- n ) : geometric-mean ( seq -- n )
#! geometric mean, nth root of product #! geometric mean, nth root of product
[ product ] keep length swap nth-root ; [ length ] [ product ] bi nth-root ;
: harmonic-mean ( seq -- n ) : harmonic-mean ( seq -- n )
#! harmonic mean, reciprocal of sum of reciprocals. #! harmonic mean, reciprocal of sum of reciprocals.
#! positive reals only #! positive reals only
0 [ recip + ] reduce recip ; [ recip ] sigma recip ;
: median ( seq -- n ) : median ( seq -- n )
#! middle number if odd, avg of two middle numbers if even #! middle number if odd, avg of two middle numbers if even
natural-sort dup length dup even? [ natural-sort dup length dup even? [
1- 2 / swap [ nth ] 2keep >r 1+ r> nth + 2 / 1- 2 / swap [ nth ] [ >r 1+ r> nth ] 2bi + 2 /
] [ ] [
2 / swap nth 2 / swap nth
] if ; ] if ;