merge-sorted-seqs.clj

merge-sorted-seqs.clj

;; Example:
;; (merge-sorted-seqs < (range 10 1000 3) (range 12 1000 5))

(defn merge-sorted-seqs [cmpf seq1 seq2]
  (let [seq1wins (and (seq seq1)
                      (or (nil? (seq seq2))
                          (cmpf (first seq1) (first seq2))))]
    (if seq1wins
      (lazy-seq (cons (first seq1)
                      (merge-sorted-seqs cmpf (next seq1) seq2)))
      (when (seq seq2)
        (lazy-seq (cons (first seq2)
                        (merge-sorted-seqs cmpf seq1 (next seq2))))))))