Skip to content

Instantly share code, notes, and snippets.

@dLobatog
Created June 5, 2012 18:28
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
Star You must be signed in to star a gist
Save dLobatog/2876739 to your computer and use it in GitHub Desktop.
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