math.statistics: change minmax to not look at first element twice.

diff --git a/basis/math/statistics/statistics.factor b/basis/math/statistics/statistics.factor
index a67591ea84d5e9da7dc9ff3d7d9081af8b5fef65..fe18d0c855f1345f55f2af163ef2afc15ba11828 100644 (file)
--- a/basis/math/statistics/statistics.factor
+++ b/basis/math/statistics/statistics.factor
@@ -229,7 +229,7 @@ PRIVATE>
     histogram >alist [ second ] supremum-by first ;
 
 : minmax ( seq -- min max )
-    [ first dup ] keep [ [ min ] [ max ] bi-curry bi* ] each ;
+    [ first dup ] keep [ [ min ] [ max ] bi-curry bi* ] 1 each-from ;
 
 : range ( seq -- x )
     minmax swap - ;
@@ -245,8 +245,7 @@ PRIVATE>
 
 : sample-var ( seq -- x ) 1 var-ddof ; inline
 
-: std-ddof ( seq n -- x )
-    var-ddof sqrt ; inline
+: std-ddof ( seq n -- x ) var-ddof sqrt ; inline
 
 : population-std ( seq -- x ) 0 std-ddof ; inline