gistfile1.clj

(defn partition-by-frame
  [coll]
  (lazy-seq
   (when-let [s (seq coll)]
     (let [[x y z :as xyz] (take 3 s)]
       (if (= 10 x)
           (cons xyz (partition-by-frame (next s)))
           (if (= 10 (+ x (or y 0)))
               (cons xyz   (partition-by-frame (drop 2 s)))
               (cons [x y] (partition-by-frame (drop 2 s)))))))))

(defn score
  [rolls]
  (->> rolls
       partition-by-frame
       (take 10)
       (map #(remove nil? %))
       (reduce (partial apply +) 0)))