diff options
| author | scgilardi <scgilardi@gmail.com> | 2008-10-19 15:24:50 +0000 |
|---|---|---|
| committer | scgilardi <scgilardi@gmail.com> | 2008-10-19 15:24:50 +0000 |
| commit | 94ca536b4e901c9ee0bc7bcc2662e86a7803fbbf (patch) | |
| tree | bbd4f62f65211aa5f385d103d9775043eadb6529 /src/clojure/contrib | |
| parent | 62e468ecb286958bb908bb78067880f41c2a06bc (diff) | |
lazy-seqs: simplify powers-of-2, inspired by achim_p's fibs
Diffstat (limited to 'src/clojure/contrib')
| -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 |