diff options
| -rw-r--r-- | src/clojure/contrib/lazy_seqs/lazy_seqs.clj | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/src/clojure/contrib/lazy_seqs/lazy_seqs.clj b/src/clojure/contrib/lazy_seqs/lazy_seqs.clj index 429700de..5736e20f 100644 --- a/src/clojure/contrib/lazy_seqs/lazy_seqs.clj +++ b/src/clojure/contrib/lazy_seqs/lazy_seqs.clj @@ -59,12 +59,7 @@ "A lazy sequence of all the fibonacci numbers.") (defvar powers-of-2 - (lazy-cons 1 - (let [rest-fn - (fn rest-fn [n] - (let [next (bit-shift-left n 1)] - (lazy-cons next (rest-fn next))))] - (rest-fn 1))) + (lazy-cons 1 (map #(bit-shift-left % 1) powers-of-2)) "A lazy sequence of all the powers of 2") (defn rotations |