Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (defn fib []
- (letfn [(inner-fib [a b]
- (lazy-seq (cons b (inner-fib b (+ a b)))))]
- (concat [0 1] (inner-fib 1 1))))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement