martintrojer · March 25, 2012 15:20
diff --git a/dfib.clj b/dfib.clj
 (defn fib [n]
  (loop [back1 1, back2 0, n n]
    (cond
      (= n 0) 0
      (= n 1) (+ back1 back2)
      :else (recur back2 (+ back1 back2) (- n 1)))))
diff --git a/lazy-fib.clj b/lazy-fib.clj
 (defn fib-seq
  ([] (fib-seq 0 1))
  ([a b] (lazy-seq (cons a (fib-seq b (+ a b))))))
No results found