perf tweaks in reduce

2 files changed, 7 insertions, 0 deletions

diff --git a/src/jvm/clojure/lang/ArrayChunk.java b/src/jvm/clojure/lang/ArrayChunk.java
index 90264c57..d5a5a77b 100644
--- a/src/jvm/clojure/lang/ArrayChunk.java
+++ b/src/jvm/clojure/lang/ArrayChunk.java
@@ -46,4 +46,10 @@ public IChunk dropFirst(){
 	return new ArrayChunk(array, off + 1, end);
 }
 
+public Object reduce(IFn f, Object start) throws Exception{
+		Object ret = f.invoke(start, array[off]);
+		for(int x = off + 1; x < end; x++)
+			ret = f.invoke(ret, array[x]);
+		return ret;
+}
 }
diff --git a/src/jvm/clojure/lang/IChunk.java b/src/jvm/clojure/lang/IChunk.java
index 53e9bf08..fd667161 100644
--- a/src/jvm/clojure/lang/IChunk.java
+++ b/src/jvm/clojure/lang/IChunk.java
@@ -16,4 +16,5 @@ public interface IChunk extends Indexed{
 
 IChunk dropFirst();
 
+Object reduce(IFn f, Object start) throws Exception;
 }