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

2012-05-04 14:51:38 -07:00 · 2012-05-04 14:51:38 -07:00 · 7ab521f0ba
parent 87686a9a31
commit 7ab521f0ba
1 changed files with 1 additions and 2 deletions
--- 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* ;