RosettaCodeData/Task/Fibonacci-sequence/Clojure/fibonacci-sequence-1.clj
Ingy döt Net db842d013d A-M baby
2013-04-10 21:29:02 -07:00

2 lines
70 B
Clojure

(defn fibs []
(map first (iterate (fn [[a b]] [b (+ a b)]) [0 1])))