Median uses /i now instead of /

2005-10-31 18:13:27 +00:00 · 2005-10-31 18:13:27 +00:00 · 730f39ee23
parent 0d548ded75
commit 730f39ee23
1 changed files with 1 additions and 2 deletions
--- a/contrib/math/statistics.factor
+++ b/contrib/math/statistics.factor
@ -18,7 +18,7 @@ USING: kernel math sequences ;
    number-sort dup length dup even? [
        1+ 2 /i dup 1- rot [ nth ] keep swapd nth + 2 /
    ] [
-        2 / swap nth
+        2 /i swap nth
    ] if ;

 : range ( seq -- n )
@ -36,4 +36,3 @@ USING: kernel math sequences ;
 : std
    #! standard deviation, sqrt of variance
    var sqrt ;
-