Changeset 39752 in project

Timestamp:

03/23/21 12:49:38 (4 weeks ago)

Author:

Idiomdrottning

Message:

 

File:

• wiki/eggref/5/lazy-seq (modified) (1 diff)

wiki/eggref/5/lazy-seq

@@ -211 +211 @@
 <enscript language="scheme">
 (define odd-numbers
-  (let next ((n 0))
+  (let next ((n 1))
     (lazy-seq
-      (if (odd? n)
-        (cons n (next (+ n 1)))
-        (next (+ n 1))))))
+     (cons n (next (+ n 2))))))
 
 (lazy-ref 5 odd-numbers) ; => 11