RosettaCodeData/Task/Time-a-function/Clojure/time-a-function.clj

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

  (time (take 100 (fib)))