20091201-libsvm-model-parser.clj

(defn lazy-combine [xs ys]
  (lazy-seq
   (if-let [[x & xs*] xs]
     (if-let [[y & ys*] ys]
       (cond (= x y) (cons x (lazy-combine xs* ys*))
             (< x y) (cons x (lazy-combine xs* ys))
             (> x y) (cons y (lazy-combine xs ys*)))
       xs) ; no more ys
     ys))) ; no more xs