Clojure: Stern-Brocot Sequence

stern-brocot-sequence.clj

;; See: http://en.wikipedia.org/wiki/Stern%E2%80%93Brocot_tree
(def stern-brocot-sequence
  (map (fn [nums]
         (/ (first nums) (second nums)))
       (iterate
         (fn [nums]
           (let [a (first nums)
                 b (second nums)
                 r (rest (rest nums))]
             (vec (flatten (conj [] b r (+ a b) b)))))
         [1 1])))

(comment 
  (pprint (take 40 stern-brocot-sequence))
  )