math.statistics: Median now changes the order of the sequence, so clone it first.

2013-03-24 01:08:28 -07:00 · 2013-03-24 01:08:28 -07:00 · bfbe6edde6
parent 188d7e98df
commit bfbe6edde6
1 changed files with 1 additions and 0 deletions
--- a/basis/math/statistics/statistics.factor
+++ b/basis/math/statistics/statistics.factor
@ -151,6 +151,7 @@ PRIVATE>
    bi kth-smallests first2 ;

 : median ( seq -- x )
+    clone
    dup length odd? [ lower-median ] [ medians + 2 / ] if ;

 ! quantile can be any n-tile. quartile is n = 4, percentile is n = 100