fibonacci.clj

(ns tutorial.fibonacci
  (:gen-class))

(defn fibonacci
  "Returns the fibonacci sequence of a given length"
  [ len ]
  (def fibonacci-sec (atom (seq [ 0 1 ])))
  (dotimes [counter (- len 2)]
    (def first-num (nth @fibonacci-sec counter))
    (def sec-num (nth @fibonacci-sec (+ counter 1)))
    (def new-fibonacci-sec (concat @fibonacci-sec (seq [ (+ first-num sec-num) ])))
    (reset! fibonacci-sec new-fibonacci-sec)
  )
  (take len @fibonacci-sec))