Divide a sequence into continuous subsequences

subseqseq.clj

(def sss
  (memoize
    (fn [s]
      (let [n (count s)]
        (cond
          (zero? n) '(())
          (= n 1) `((~s))
          :else (mapcat
                  (fn [c]
                    (let [[a b] (split-at c s)]
                      (map #(cons a %) (lazy-seq (sss b)))))
                  (range 1 (inc n))))))))

example to use

user=> (sss [1 2 3 4])
(((1) (2) (3) (4)) ((1) (2) (3 4)) ((1) (2 3) (4)) ((1) (2 3 4)) ((1 2) (3) (4)) ((1 2) (3 4)) ((1 2 3) (4)) ((1 2 3 4)))

user=> (sss [:a :b :c :d])
(((:a) (:b) (:c) (:d)) ((:a) (:b) (:c :d)) ((:a) (:b :c) (:d)) ((:a) (:b :c :d)) ((:a :b) (:c) (:d)) ((:a :b) (:c :d)) ((:a :b :c) (:d)) ((:a :b :c :d)))