Advertisement
Guest User

Untitled

a guest
Sep 8th, 2011
165
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. (defn fib []
  2.   (letfn [(inner-fib [a b]
  3.             (lazy-seq (cons b (inner-fib b (+ a b)))))]
  4.     (concat [0 1] (inner-fib 1 1))))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement