math.extras: adding moving sum/supremum/infimum.

2012-07-30 16:16:10 -07:00 · 2012-07-30 16:16:10 -07:00 · 537a9af0a8
parent e83da8c3d2
commit 537a9af0a8
1 changed files with 9 additions and 0 deletions
--- a/extra/math/extras/extras.factor
+++ b/extra/math/extras/extras.factor
@ -96,6 +96,15 @@ PRIVATE>
 : moving-median ( u n -- v )
    <clumps> [ median ] map ;

+: moving-supremum ( u n -- v )
+    <clumps> [ supremum ] map ;
+
+: moving-infimum ( u n -- v )
+    <clumps> [ infimum ] map ;
+
+: moving-sum ( u n -- v )
+    <clumps> [ sum ] map ;
+
 : nonzero ( seq -- seq' )
    [ zero? not ] filter ;