Another Note

This is another note with a code snippet.

(defn gen-fib
  "Generate a lazy fibonacci sequence"
  ([]
    (fib 1 1))
  ([a b]
    (lazy-seq (cons a (fib b (+ a b))))))

(defn n-fib
  "Return the first `n` fibonacci numbers."
  [n]
  (take x (gen-fib)))