gistfile1.clj

(defn fib [n] 
  (cond 
    (= 0 n) 1
    (= 1 n) 2
    :else (+ (fib (- n 2)) (fib (- n 1)))
  )
)

(def fibmemo (memoize fib))

(defn upfib [n maxn] (
  cond
  (> (fibmemo n) maxn) []
  :else (concat [(fibmemo n)] (upfib (+ n 1) maxn))
  )
)
(pr (reduce + (filter even? (upfib 0 4000000))))