gistfile1.txt

; Problem 1  WRONG ANSWER

(defn accept-n [n]
  (cond (== 0 (mod n 3)) n
        (== 0 (mod n 5)) n
        :else 0))
; First used inc 0 and take 999, off by one :(
; Not sure why it's still messing up
(apply + (map accept-n (take 1000 (iterate inc 1))))


; Problem 2
(def s [1 2])
s
(conj s 45)
(nth s (- (count s) 2))
(defn problem-2 []


  (while (< (last s) 4000000)
    (def s
      (conj s
          (+
           (nth s (- (count s) 2))
           (last s))))  )

  (apply + (remove odd? (pop s))))
(problem-2)