monster_round.clj

(defn monster-round-original [player monsters]
  (loop [n 0 p player]
    (if (>= n (count monsters))
      p
      (recur (inc n)
         (if (monster-dead? (nth monsters n))
           p
           (let [r (monster-attack (nth monsters n) p)]
             (print (:attack r))
             (:player r)))))))

(defn- attack-player [player monster]
  (if (monster-dead? monster)
    player
    (let [r (monster-attack monster player)]
      (print (:attack r))
      (:player r))))

(defn monster-round-improved [player monsters]
  (reduce attack-player player monsters))

(defn- attack-monsters [monsters player]
  (if (monsters-dead? monsters)
    monsters
    (do
      (show-monsters monsters)
      (player-attack player monsters))))

(defn num-attacks [player]
  (inc (Math/floor (/ (max 0 (:agility player)) 15))))

(defn player-round [player monsters]
   (reduce attack-monsters monsters
           (repeat (num-attacks player) player)))