fixed number-sort

2006-01-13 08:04:04 +00:00 · 2006-01-13 08:04:04 +00:00 · 10359f2d96
parent 3131680364
commit 10359f2d96
1 changed files with 2 additions and 1 deletions
--- a/contrib/math/statistics.factor
+++ b/contrib/math/statistics.factor
@ -14,9 +14,10 @@ USING: kernel math sequences ;
    #! positive reals only
    0 [ recip + ] reduce recip ;

+! : number-sort [ - ] sort ;
 : median ( seq -- n )
    #! middle number if odd, avg of two middle numbers if even
-    number-sort dup length dup even? [
+    [ - ] sort dup length dup even? [
        1+ 2 /i dup 1- rot [ nth ] keep swapd nth + 2 /
    ] [
        2 /i swap nth