1
2
3
4
5
6
7
(defn fibo "print the fibnoacci sequence \"n\" times"
    [limit]
     {:pre [(>= limit 1)] }
       (loop [prev 1 next 1 count 0]
         (println (str count ":\t\t" prev))
         (if (< count limit)
              (recur next (+ prev next) (inc count)))))