Skip to content

Instantly share code, notes, and snippets.

Created June 5, 2012 18:28
What would you like to do?
PRoject euler 2
(defn fib-step [[a b]]
[b (+' a b)])
(defn fib-seq []
(map first (iterate fib-step [0 1]))
(defn -main [& args]
(reduce +' (filter even? (take-while (partial > 4e6) (fib-seq)))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment