Sync

2013-10-27 22:24:23 +00:00 · 2013-10-27 22:24:23 +00:00 · 776bba907c
commit 776bba907c
parent 6f050a029e
3887 changed files with 59894 additions and 7280 deletions
--- a/Task/Generator-Exponential/Clojure/generator-exponential-3.clj
+++ b/Task/Generator-Exponential/Clojure/generator-exponential-3.clj
@ -0,0 +1,6 @@
+(defn seq->fn [sequence]
+  (let [state (atom (cons nil sequence))]
+    (fn [] (first (swap! state rest)))
+
+(def f (seq->fn (squares-not-cubes)))
+[(f) (f) (f)] ; => [4 9 16]