Code: Select all
(define (f)
(begin
(println (inc cnt))
(push (last f) f -1)
(if (> (length f) 3) (pop f 1))))
Code: Select all
(first (f)) --> not 1
(take 10 (iterate inc 5))
Code: Select all
(define (f)
(begin
(println (inc cnt))
(push (last f) f -1)
(if (> (length f) 3) (pop f 1))))
Code: Select all
(first (f)) --> not 1
Here you go. :)How to design a infinite sequence just like iterate and take in Clojure.
(take 10 (iterate inc 5))
Code: Select all
> (sequence 5 14)
(5 6 7 8 9 10 11 12 13 14)