Permalink
Browse files

math.statistics: just use accumulate for now.

  • Loading branch information...
1 parent f5c0e75 commit ddd5f81cd750cc45eb6e43538daf5a37b291c1f3 @mrjbq7 mrjbq7 committed Dec 4, 2012
Showing with 1 addition and 5 deletions.
  1. +0 −1 basis/math/statistics/statistics-docs.factor
  2. +1 −4 basis/math/statistics/statistics.factor
@@ -255,7 +255,6 @@ ARTICLE: "cumulative" "Computing cumulative sequences"
"Cumulative mapping combinators:"
{ $subsections
cum-map
- cum-map0
}
"Cumulative math:"
{ $subsections
@@ -336,14 +336,11 @@ ALIAS: std sample-std
: cum-map ( seq identity quot -- seq' )
swapd [ dup ] compose map nip ; inline
-: cum-map0 ( seq identity quot -- seq' )
- accumulate nip ; inline
-
: cum-sum ( seq -- seq' )
0 [ + ] cum-map ;
: cum-sum0 ( seq -- seq' )
- 0 [ + ] cum-map0 ;
+ 0 [ + ] accumulate nip ;
: cum-product ( seq -- seq' )
1 [ * ] cum-map ;

0 comments on commit ddd5f81

Please sign in to comment.