Instead of folding from left with reduce
you might consider the pros and cons of folding from right
with
(defn foldr [f f0 s]
(if (empty? s)
f0
(f (first s) (foldr f f0 (rest s)))))
then
(defn break-on-gaps [minutes]
(foldr (fn [x acc]
(if (= (inc x) (ffirst acc))
(cons (cons x (first acc)) (rest acc))
(cons (cons x ()) acc)))
()
minutes))
--
Take it Easy Don't Hurry Be Happy
Thierry
�������o�o��������o�o��������o�o��������o�o��������o�o�������