gistfile1.clj

(defn split [seq delimiter]
  (letfn [(check-non-delimiter [val] (not (= val delimiter)))]
    (cond
     (empty? seq)
     seq
     (every? check-non-delimiter seq)
     (list seq)
     :default
     (cons
      (take-while check-non-delimiter seq)
      (split
       (rest (drop-while check-non-delimiter seq)) delimiter)))))

(defn count-interval [seq delimiter]
  (map count (split seq delimiter)))