diff options
| author | scgilardi <scgilardi@gmail.com> | 2008-11-18 19:46:05 +0000 |
|---|---|---|
| committer | scgilardi <scgilardi@gmail.com> | 2008-11-18 19:46:05 +0000 |
| commit | 34a3facb6dc65106e8a1a906464cc9de82b30ba2 (patch) | |
| tree | f4ee3aebfb5a295d90e6be9fd13ab156db2b818f | |
| parent | 8df25ff545ba23e15acdab4eeb1d11c02db4b6e2 (diff) | |
change to simple, beautiful definition of fibs
| -rw-r--r-- | src/clojure/contrib/lazy_seqs.clj | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/src/clojure/contrib/lazy_seqs.clj b/src/clojure/contrib/lazy_seqs.clj index 5736e20f..1f886085 100644 --- a/src/clojure/contrib/lazy_seqs.clj +++ b/src/clojure/contrib/lazy_seqs.clj @@ -50,12 +50,7 @@ "A lazy sequence of all the prime numbers.") (defvar fibs - (lazy-cat [0 1] - (let [rest-fn - (fn rest-fn [a b] - (let [next (+ a b)] - (lazy-cons next (rest-fn b next))))] - (rest-fn 0 1))) + (lazy-cat [0 1] (map + fibs (rest fibs))) "A lazy sequence of all the fibonacci numbers.") (defvar powers-of-2 |