1 files changed, 41 insertions, 0 deletions
diff --git a/ClojureCLR/Clojure/Clojure/Lib/IReduce.cs b/ClojureCLR/Clojure/Clojure/Lib/IReduce.cs
new file mode 100644
index 00000000..b1fac022
--- /dev/null
+++ b/ClojureCLR/Clojure/Clojure/Lib/IReduce.cs
@@ -0,0 +1,41 @@
+/**
+ *   Copyright (c) David Miller. All rights reserved.
+ *   The use and distribution terms for this software are covered by the
+ *   Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
+ *   which can be found in the file epl-v10.html at the root of this distribution.
+ *   By using this software in any fashion, you are agreeing to be bound by
+ * 	 the terms of this license.
+ *   You must not remove this notice, or any other, from this software.
+ **/
+
+using System;
+using System.Collections.Generic;
+using System.Linq;
+using System.Text;
+
+namespace clojure.lang
+{
+    /// <summary>
+    /// Represents a collection that supports function mapping/reduction.
+    /// </summary>
+    public interface IReduce
+    {
+        /// <summary>
+        /// Reduce the collection using a function.
+        /// </summary>
+        /// <param name="f">The function to apply.</param>
+        /// <returns>The reduced value</returns>
+        /// <remarks>Computes f(...f(f(f(i0,i1),i2),i3),...).</remarks>
+        object reduce(IFn f);
+
+
+        /// <summary>
+        /// Reduce the collection using a function.
+        /// </summary>
+        /// <param name="f">The function to apply.</param>
+        /// <param name="start">An initial value to get started.</param>
+        /// <returns>The reduced value</returns>
+        /// <remarks>Computes f(...f(f(f(start,i0),i1),i2),...).</remarks>
+        object reduce(IFn f, object start);
+    }
+}