bowling.clj

(defn frame-size [[a :as rolls]]
  (if (= 10 a)
    1
    2))

(defn frame-score [[a b c :as rolls]]
  (if (>= 10 (+ a b))
    (+ a b c)
    (+ a b)))

(defn total-score [rolls]
  (loop [frames 10
         score 0
         rolls rolls]
    (if (= 0 frames)
      score
      (recur (dec frames) 
             (+ score (frame-score rolls))
             (drop (frame-size rolls) rolls)))))