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

Median uses /i now instead of /

cvs
Doug Coleman 2005-10-31 18:13:27 +00:00
parent 0d548ded75
commit 730f39ee23
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
contrib/math/statistics.factor
View File

@ -18,7 +18,7 @@ USING: kernel math sequences ;
number-sort dup length dup even? [ number-sort dup length dup even? [
1+ 2 /i dup 1- rot [ nth ] keep swapd nth + 2 / 1+ 2 /i dup 1- rot [ nth ] keep swapd nth + 2 /
] [ ] [
2 / swap nth 2 /i swap nth
] if ; ] if ;
: range ( seq -- n ) : range ( seq -- n )
@ -36,4 +36,3 @@ USING: kernel math sequences ;
: std : std
#! standard deviation, sqrt of variance #! standard deviation, sqrt of variance
var sqrt ; var sqrt ;