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

math.statistics: use "cumulative map" as base of all cumulative words.

db4
John Benediktsson 2012-09-25 22:27:42 -07:00
parent a283782abe
commit ca69afec31
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -318,17 +318,20 @@ ALIAS: ste sample-ste
ALIAS: corr sample-corr ALIAS: corr sample-corr
: cum-map ( seq identity quot -- seq' )
swapd [ dup ] compose map nip ; inline
: cum-sum ( seq -- seq' ) : cum-sum ( seq -- seq' )
0 swap [ + dup ] map nip ; 0 [ + ] cum-map ;
: cum-product ( seq -- seq' ) : cum-product ( seq -- seq' )
1 swap [ * dup ] map nip ; 1 [ * ] cum-map ;
: cum-min ( seq -- seq' ) : cum-min ( seq -- seq' )
[ ?first ] keep [ min dup ] map nip ; dup ?first [ min ] cum-map ;
: cum-max ( seq -- seq' ) : cum-max ( seq -- seq' )
[ ?first ] keep [ max dup ] map nip ; dup ?first [ max ] cum-map ;
: probabilities ( seq -- probabilities ) : probabilities ( seq -- probabilities )
[ histogram values ] [ length ] bi v/n ; [ histogram values ] [ length ] bi v/n ;