math.statistics: simpler (faster) version of rescale.

diff --git a/basis/math/statistics/statistics.factor b/basis/math/statistics/statistics.factor
index 1ab5760fa6c6307cf2076e1a1649b4529d819e18..88d93d3339b7f15287b21e3c800687e99b1d0749 100644 (file)
--- a/basis/math/statistics/statistics.factor
+++ b/basis/math/statistics/statistics.factor
@@ -312,5 +312,4 @@ ALIAS: corr sample-corr
     [ 1 tail-slice ] keep [ - ] 2map ;
 
 : rescale ( u -- v )
-    [ ] [ infimum ] [ supremum over - ] tri
-    [ v-n ] [ v/n ] bi* ;
+    dup minmax over - [ v-n ] [ v/n ] bi* ;