Entry 5971
A Clojure solution for Project Euler - Problem 2
Submitted by http://jared.cacurak.com
on Aug. 11, 2010 at 4:06 a.m.
Language: Clojure. Code size: 158 bytes.
(def fibs (map first (iterate (fn [[a b]] [b (+ a b)]) [0 1]))) (reduce + (take-while (partial > 4000000) (filter even? fibs)))
This snippet took 0.00 seconds to highlight.
Back to the Entry List or Home.