Added IReduce to iterate

Author: oholiab

pixie/stdlib.pxi

@@ -3073,6 +3073,16 @@ ex: (vary-meta x assoc :foo 42)"
             ret)
           val)))))
 
+(deftype Iterate [f x]
+  IReduce
+  (-reduce [self f init]
+    (loop [acc (f (if (nil? init)
+                (first self)
+                init))]
+      (if (reduced? acc)
+        @acc
+        (recur (f acc))))))
+
 (defn iterate
   {:doc "Returns a lazy sequence of x, (f x), (f (f x)) etc. f must be free of
     side-effects"

tests/pixie/tests/test-stdlib.pxi

@@ -764,4 +764,5 @@
 
 (t/deftest test-iterate
   (t/assert= (take 5 (iterate inc 5)) '(5 6 7 8 9))
-  (t/assert= (str (type (iterate inc 1))) "<type pixie.stdlib.LazySeq>"))
+  (t/assert= (str (type (iterate inc 1))) "<type pixie.stdlib.LazySeq>")
+  (t/assert= (reduce (fn [a v] (if (< a 10) (+ a v) (reduced a))) (iterate (partial + 2) 1)) 16))