jmgimeno · February 24, 2012 16:04
diff --git a/split-at-subsequence.clj b/split-at-subsequence.clj
 (defn split-at-subsequence [mark input]
    (when-let [sequence (seq input)]
        (let [len       (count mark)
              mark-seq  (seq mark)
              partition (partition-all len 1 sequence)
              step      (fn step [pieces]
                            (when pieces
                                (let [[fst rst]  (split-with #(not= mark-seq %) pieces)
                                      tail       (lazy-seq (step (nthnext rst len)))]
                                    (if (empty? fst)
                                        tail
                                        (cons (map first fst) tail)))))]
            (step partition))))
	(defn split-at-subsequence [mark input]
	(when-let [sequence (seq input)]
	(let [len (count mark)
	mark-seq (seq mark)
	partition (partition-all len 1 sequence)
	step (fn step [pieces]
	(when pieces
	(let [[fst rst] (split-with #(not= mark-seq %) pieces)
	tail (lazy-seq (step (nthnext rst len)))]
	(if (empty? fst)
	tail
	(cons (map first fst) tail)))))]
	(step partition))))