Implement fibonacci in Clojure using map/reduce

clojure, fibonacci, reduce

Solution

You could use a pair of successive fibonacci values as the accumulator, as follows:

(reduce 
  (fn [[a b] _] [b (+ a b)])  ; function to calculate the next pair of values
  [0 1]                       ; initial pair of fibonnaci numbers
  (range 10))                 ; a seq to specify how many iterations you want

=> [55 89]

This is not particularly efficient due to the creation of lots of intermediate pairs and use of the superfluous range sequence to drive the right number of iterations, but it is O(n) from an algorithmic perspective (i.e. the same as the efficient iterative solution, and much better than the naive recursive one).

Problem

Is it possible to implement the fibonacci series in Clojure efficiently using `reduce`? What would the "accumulator" contain? I imagine that it will have to be lazy. It's obvious how to do it using recursion or loop/recur.

Original source