kpmaynard · May 18, 2014 01:50
diff --git a/fibo b/fibo
 (defn fib [n]
  
  (def memo {0 0 1 1})
  
  (for [k  (range  (inc n))] 
    (when (> k 1) 
      (assoc memo k (+ (memo (- k 1)) (memo (- k 2)))))
    )
   (memo n)
  )
	(defn fib [n]

	(def memo {0 0 1 1})

	(for [k (range (inc n))]
	(when (> k 1)
	(assoc memo k (+ (memo (- k 1)) (memo (- k 2)))))
	)
	(memo n)
	)