Problem 25

1say (1, 1, * + *... *.chars == 1000).elems

1(def gen-fib
2      (lazy-cat [[0 0N] [1 1N]] (map (fn [[i1 f1] [i2 f2]] [(inc i1) (+ f1 f2)]) (rest gen-fib) gen-fib)))
3
4(defn -main
5  []
6  (println (first (first (filter #(>= (count (str (last %))) 1000) gen-fib)))))