Create a gist now

Instantly share code, notes, and snippets.

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