unionx/reduction1.clj

Created December 3, 2012 22:19

Star (0) You must be signed in to star a gist
Fork (0) You must be signed in to fork a gist

Select an option

Learn more about clone URLs
Clone this repository at <script src="https://gist.github.com/unionx/4198654.js"></script>
Save unionx/4198654 to your computer and use it in GitHub Desktop.

Download ZIP

Revisions

unionx created this gist Dec 3, 2012.

reduction1.clj

-Original file line number
+Diff line change
@@ -0,0 +1,7 @@
+    (fn reduction1
+      ([f col]
+         (reduction1 f (f (first col)) (rest col)))
+      ([f val col]
+         (if (empty? col)
+           (list val)
+           (cons val (lazy-seq (reduction1 f (f val (first col)) (rest col)))))))