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

db4
John Benediktsson 2012-05-04 14:51:38 -07:00
parent 87686a9a31
commit 7ab521f0ba
1 changed files with 1 additions and 2 deletions

View File

@ -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* ;