lazy merge-sort

gistfile1.clj

(defn lazy-sort
  ([input-seq]
   (lazy-sort (merge-step [(first input-seq)] [(second input-seq)]) (drop 2 input-seq)))
  ([partial-result input-seq]
   (let [result-length (count partial-result)]
     (if (seq input-seq)
       (recur (merge-step partial-result (divide-step (take result-length input-seq))) (drop result-length input-seq))
       partial-result))))