Solve this problem: http://v2ex.com/t/74002

gistfile1.clj

(for [col (partition-by #(> (second %) 0) (map-indexed vector lst))
            :when (every? #(> (second %) 0) col)]
        [(count col) [(first (first col)) (first (last col))]])

;user> ([3 [3 5]] [8 [11 18]] [7 [24 30]] [6 [36 41]])