gistfile1.clj

;; user> (partition* [1 2 3 4 5 6 7 8] 3)                                                                            
;; ((1 2 3) (2 3 4) (3 4 5) (4 5 6) (5 6 7) (6 7 8))                                                                 
(defn partition* [xs n]
  (let [subs (loop [ys xs acc []]
               (if (empty? ys)
                 acc
                 (recur (rest ys) (conj acc ys))))]
    (take-while #(= (count %) n)
                (map (partial take n) subs))))