different fibonacci implementations

first-n-fib.clj

(def first-n-fib
  #(loop [l [] a 0 b 1 c 0]
    (if (= c %)
      l
      (recur
        (conj l a)
        b
        (+ a b)
        (+ 1 c)))))

(first-n-fib 7)
; =>  [0 1 1 2 3 5 8]

;;

(def first-n-fib (fn[n]
 (defn fib [a b]
    (cons a (lazy-seq (fib b (+ a b)))))
  (take n (fib 0 1))))

(first-n-fib 7)
; => (0 1 1 2 3 5 8)

;;


(def first-n-fib (fn[n]
  (let [fib (fn [a b]
     (lazy-seq (cons a (fib b (+ a b)))))]
     (take n (fib 0 1)))))

(first-n-fib 7)
; => (0 1 1 2 3 5 8)