From 60e3fc9341b72b165391648e22b4ca2744338a2c Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Mon, 30 Jul 2012 16:16:10 -0700
Subject: [PATCH] math.extras: adding moving sum/supremum/infimum.

---
 extra/math/extras/extras.factor | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/extra/math/extras/extras.factor b/extra/math/extras/extras.factor
index fa02ea8e15..5d48e35181 100644
--- 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 ;