 
 
 ;; (defn give-init-modules [players modules cnt]
-;;   (map #(update % :modules (take cnt 
+;;   (map #(update % :modules (take cnt
 (give-init-modules [:1 :2])
-


(defn rat-energy-required
  [rat]
  (apply + (vals (rat-stats rat))))

;; arena rat
(defn rat-is-alive?

  (apply (partial merge-with +) modules))


(def MODULES
  (for [hp (range 5)
        ap (range 5)
        dp (range 5)]
    (->module hp ap dp)))

(defn make-modules-for-game
  []
  (shuffle MODULES))

(defn rat-stats
  [{modules :modules}]
