gistfile1.clj

(defn f
  []
  (reduce (fn [list new-val] (let [[left right] (split-with (fn [val] 
                                                              (>= val new-val))
                                                             list)]
                                (concat left [new-val] right)))
          (take 1 (range 2000))
          (drop 1 (range 2000))))