steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

char-rename
John Benediktsson 2016-12-28 13:39:52 -08:00
parent b141e0d2fb
commit 60919f8a89
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
basis/math/statistics/statistics.factor
View File

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