6 lines
173 B
Clojure
6 lines
173 B
Clojure
(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]
|